#!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"; 
}