#! 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 '';