system('perl -e "exit 42"');
my $rc = $? >> 8;
print "return code=$rc\n";