#!perl -w
use strict;use warnings; 

my $rc=system 'jxdDoesNotExist';
print 'rc:'.$rc."\n"; 
ec($?); 
print '$?:'.$?."\n"; 
print '$!:'.$!."\n"; 
print '$^E:'.$^E."\n";

print "\n\ntry2\n"; 
my $rc2=system {'jxdDoesNotExist'} 'jxdDoesNotExist';

print 'rc:'.$rc2."\n"; 
ec($?); 
print '$?:'.$?."\n"; 
print '$!:'.$!."\n"; 
print '$^E:'.$^E."\n";


sub ec { 
my $x=shift; 

print '>>8 :'.($x>>8)."\n"; 
print '&127:'.($x & 127)."\n"; 
print '&128:'.($x & 128)."\n"; 
} 

##</code><code>##

'jxdDoesNotExist' is not recognized as an internal or external command,
operable program or batch file.
rc:256
>>8 :1
&127:0
&128:0
$?:256
$!:No such file or directory
$^E:


try2
Can't spawn "cmd.exe": No such file or directory at rc.pl line 12.
rc:65280
>>8 :255
&127:0
&128:0
$?:65280
$!:No such file or directory
$^E:The system cannot find the file specified
##</code><code>##

Net helpmsg 255

##</code><code>##

The extended attributes are inconsistent.