system("perl b.pl");
my $exit_code = $? >> 8;
my $exit_signal = $? & 127;