#!/usr/bin/perl

my $SHOUT = 0;
$SIG{USR1} = sub {
        ++$SHOUT;
};

my $PROGRAM = $0;
print "$PROGRAM started with pid $$\n";

my $counter = 0;
while(1) {
        $counter++;
        if($SHOUT){
                print "$0 says: $counter \n";
                $0 = $PROGRAM . " counter=$counter";
                $SHOUT = 0;
        }
        sleep 1;
}