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 ;
}