use sigtrap 'handler' => \&myhand, 'INT';

sub myhand
{
    print "\n caught $SIG{INT}",@_,"\n";
}

print "program started \n";
while(1){sleep 1;}