Guys,

I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script.

There two scripts : one shell script and one perl script.

The shell script calls the perl script.

For e.g. shell script a.sh and perl scipt sig.pl.

Shell script a.sh looks something like this :

#!/usr/bin/sh

# some code

sig.pl # Call perl script.

# some more code.

Perl script sig.pl looks something like this :

#!/usr/bin/perl

#some code

#signal handling

$SIG{'INT'} = 'Handler';

sub Handler {
print "Caught ^C \n";
exit (0);
}

# Some more code.

The point is : The signal gets caught in sig.pl, but it doesn't return to
a.sh, but instead returns to the command prompt.

I need to do more processing in shell script a.sh.

I've used die() as well but the result is the same.

Does anyone have any idea how to make the perl script return back to the parent shell script after catching the signal.

Thanks.