use warnings;
my $ret = system("try.exe");
print $ret >> 8, "\n", $? >> 8, "\n";