#! /usr/bin/perl

use Config;

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

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