use POSIX;
my $st = 139;
print "WIFEXITED: ", WIFEXITED($st), "\n";
print "WIFSIGNALED: ", WIFSIGNALED($st), "\n";
print "WTERMSIG: ", WTERMSIG($st), "\n";