#! c:\perl\bin\perl.exe use CGI qw(:standard :html3); use CGI::Carp qw(fatalsToBrowser); print header(); print ''; $tmp = `dir`; if (defined($tmp)) { print "Dir: $tmp"; } else { print "Error: $!"; } print "

"; print "Path is $ENV{'PATH'}"; print ''; #### Path is d:\bin\;D:\oracle\ora81\bin;C:\Program Files\Oracle\jre\1.1.7\bin;C:\Perl\bin\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem