thats easy, just install the sighandler before you start your mainloop ;-)

sub catch_zap {
    die "Somebody sent me a SIG$signame";
}
$SIG{INT} = 'catch_zap';  # could fail in modules

select STDOUT ; $| = 1 ;
while ( true ) {
    print "." ;
    sleep 1 ;
}
[download]