kpietru/info.pl

## info.pl
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<!DOCTYPE html>\n";
print "<html>\n";
print "    <head>\n";
print "        <title>Perl</title>\n";
print "    </head>\n";
print "    <body style=\"backgorund-color: #fff; color: #333; font-family: arial, helvetica, sans-serif;\">\n";
print "        <h1>Perl</h1>\n";
print "        <p style=\"white-space: pre-wrap;\">\n";
print `perl -v`;
print "        </p>\n";
print "        <hr/>\n";
print "        <h2>Perl Environment Variables</h2>\n";
print "        <p>\n";
foreach $key (sort(keys %ENV)) {
    print "$key = $ENV{$key}<br/>\n";
}
print "        </p>\n";
print "        <hr/>\n";
print "        <h2>Summary</h2>\n";
print "        <pre>\n";
print `perl -V`;
print "        </pre>\n";
print "        <hr/>\n";
print "    </body>\n";
print "</html>\n";
	#!/usr/bin/perl
	print "Content-type: text/html\n\n";
	print "<!DOCTYPE html>\n";
	print "<html>\n";
	print " <head>\n";
	print " <title>Perl</title>\n";
	print " </head>\n";
	print " <body style=\"backgorund-color: #fff; color: #333; font-family: arial, helvetica, sans-serif;\">\n";
	print " <h1>Perl</h1>\n";
	print " <p style=\"white-space: pre-wrap;\">\n";
	print `perl -v`;
	print " </p>\n";
	print " <hr/>\n";
	print " <h2>Perl Environment Variables</h2>\n";
	print " <p>\n";
	foreach $key (sort(keys %ENV)) {
	print "$key = $ENV{$key}<br/>\n";
	}
	print " </p>\n";
	print " <hr/>\n";
	print " <h2>Summary</h2>\n";
	print " <pre>\n";
	print `perl -V`;
	print " </pre>\n";
	print " <hr/>\n";
	print " </body>\n";
	print "</html>\n";