sub interrupt
{
   my $sig_name = shift;
   print "You can't kill me! $sig_name caught";
}