#!/usr/bin/perl -w
use strict;

my $bestCounterEver = 0;
my $nTimes = 10000000;
my $lamePrintCounter = $nTimes;

print "COUNTY!\n";
while (1)
{    
    $SIG{INT} = \&lazy;
    
    $bestCounterEver += 100000;
    $lamePrintCounter--;

    if ($lamePrintCounter < 0)
    {
	$lamePrintCounter = $nTimes;
	print "still going: $bestCounterEver\n";
    }
}

sub lazy {    
    print "Wait longer next time!!\n";    
    print "Final Count = $bestCounterEver \n";
    exit(0);
}