#!/usr/bin/perl -w
use strict;

$SIG{INT}=\&myhand;

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

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