$SIG{INT}=\&sig_handler;
system("perl b.pl");
print "In A\n";
sub sig_handler
{
    printf("Sig trapped.\n");
}