#! perl -slw
use strict;

undef $^E;
undef $!;
print 'Successful command returning 1';
system 'c:/perl/bin/perl.exe -e"sleep 5; exit 1"';
print "![$!] ?[@{[$?, ':', $?>>8]}] E[$^E]";

undef $^E;
undef $!;
print "\nNonexistent command, attempted direct but fallback to via cmd";
system 'c:/doesNotExists.exe';
print "![$!] ?[@{[$?, ':', $?>>8]}] E[$^E]";

undef $^E;
undef $!;
print "\nNonexistent via cmd because 'shell chars'; sending stderr >null";
system 'c:/doesNotExists.exe 2>null';
print "![$!] ?[@{[$?, ':', $?>>8]}] E[$^E]";

__END__
C:\test>junk
Use of uninitialized value in undef operator at C:\test\junk.pl line 4.
Successful command returning 1
![] ?[256 : 1] E[]
Use of uninitialized value in undef operator at C:\test\junk.pl line 10.

Nonexistent command, attempted direct but fallback to via cmd
'c:/doesNotExists.exe' is not recognized as an internal or external command,
operable program or batch file.
![No such file or directory] ?[256 : 1] E[The system cannot find the file specified]
Use of uninitialized value in undef operator at C:\test\junk.pl line 16.

Nonexistent via cmd because 'shell chars'; sending stderr >null
![] ?[256 : 1] E[The system cannot find the file specified]