#!/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;}


##</code><code>##

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

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

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