#!/usr/bin/perl -w

use sigtrap 'handler' => \&myhand, 'INT';
# equivalent to $SIG{INT}=\&myhand;

# use strict;
# kill 6 doesn't work under strict under IndigoPerl for some reason

sub myhand
{
    print "\n caught $SIG{INT}",@_,"\n";
    kill 6, $$; # ABRT = 6
    # $$ is the pid of the current process
}

print "program started \n";

while(1)
{ select(undef,undef,undef,0.25);}