#! perl -slw
use strict;
use Config;

print <>;
close STDIN;


my @sigs = split ' ', $Config{ sig_name };
shift @sigs;

for ( @sigs ) {
    warn "Installing signal handler for $_\n";
    eval qq[\$SIG{ $_ } = sub{ warn "Signal $_ received\n"; } ];
}

my $count;
while( 1 ) {
    $count += 1 for 1.. 1e6;
    warn $count;
    sleep 3;
}