#!/usr/bin/perl
# Display Perl information

print "Content-type: text/html\n\n";
print "<h2>Hello, World from Perl</h2>\n";

print "Today is " . scalar localtime() . "<br>\n";

print "Perl information<br>\n";
print "Perl version = $]<br>\n";
print "Perl.exe path \$^X = $^X<br>\n";
print "Script path \$0 = $0<br>\n";

print "\@ARGV = @ARGV<br>\n";

print "\@INC=\n", join("\n", @INC), "<br>\n";

print "</body></html>\n";

