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

##</code><code>##

print "In B\n";
for(;;)
{
}