#!/usr/bin/perl #!/usr/local/bin/perl #!/home/a0/mikaelb/bin/perl require "/home/a0/mikaelb/lib/perl/cgi-lib.pl"; print "Content-type: text/html\n\n"; print < Perl CGI Environment Report

Perl CGI Environment Report

[localhost/cgi-bin] [localhost/~mikaelb] [www.df.lth.se.orbin.se/~mikaelb] 
argc is $#ARGV. argv is @ARGV.
STOP
print 'whoami = ', `whoami`, "\n";
print 'PERL_VERSION = ', 0 + $], "\n";
print <

Query Variables

STOP
if (&ReadParse(*input)) {
   print &PrintVariables(%input);
}
print <
[Mikael Bonnier's home page]


STOP