#!/usr/bin/perl
 
$saw_sig = 0;
$SIG{INT} = \&my_sig;

sub my_sig{
  print "I am catching the signals\n";
  $saw_sig = 1;
}

while (1){
	
	$saw_sig==0?print "I am here\n":die;
}