$ cat sigtrap
#!/usr/bin/perl
$SIG{'INT'} = 'ABORT';
    sub ABORT {
    print "\nStop the loop?? (y/n) : ";
        chop($ch=<STDIN>);
       
 if ($ch =~ /[yY]/)
    {     
    
         
    exit(1);

     }
  else
   {
     redo;
   }
    }
$no=0;
while (1)
 {
   print "$no\n";
   sleep 2;
   $no++
 }