print "Content-type: text/html\r\n\r\n

\n";
print "$< $> $( $) $^X $] $0\n";
print join(":",getpwuid($<)),"\n";
print "$ENV{PATH}\n";
print `/bin/pwd`; # Not for Win32
#OR# print Win32::getcwd(),"\n"; # For Win32
print "

\n"; exit(0);