Signal Handling

#
# print all signal names
#
use Config; 
print $Config{sig_name}; 
#
# install a handler
#
$SIG{"INT"} = \&signal_handler; 

sub signal_handler
{
    my $signam = shift; 

    print "Caught SIG$signam"; 
 
    ...
}