kpietru · July 4, 2015 11:41
diff --git a/info.pl b/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";