# On Windows 2000, ActiveState Perl 5.8.8 or 5.10

# case one:
opendir(FOO,'.');
system('this_program_does_not_exist');
# $? == 256, $! != 0

# case two:
opendir(BAR,'this_directory_does_not_exist');
system('perl -e "exit 1"');
# $? == 256, $! != 0