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

##

Error: Bad file descriptor