#!/usr/bin/perl
 
$saw_sig = 0;
$SIG{INT} = \&my_sig;
sub my_sig{
  print "I am catching the signals\n";
  $saw_sig = 1;
  # die;
}

while (not $saw_sig){
   print "I am here\n";
}