#!/usr/bin/perl

use POSIX();

$|=1;

$sub = sub { exec "$0" };

# POSIX unmasks the sigprocmask properly
my $sigset = POSIX::SigSet->new();
my $action = POSIX::SigAction->new( 
                     $sub, $sigset, &POSIX::SA_NODEFER );
POSIX::sigaction(&POSIX::SIGINT, $action);

print (++$counter), sleep 1 while 1