use strict;
use warnings;

my $growing_number;

# Handle Ctrl-C
$SIG{INT} = sub{ 
    print "INT: last value of \$growing_number is: $growing_number\nTerminating..\n";
    exit;
};

# Handle Ctrl-Break
$SIG{BREAK} = sub{ 
    print "BREAK: Currently \$growing_number is: $growing_number\n";
};


while (1){
	$growing_number += time;
	sleep 1;
}

__END__
BREAK: Currently $growing_number is: 10049615223
BREAK: Currently $growing_number is: 18424294603
BREAK: Currently $growing_number is: 23449102243
INT: last value of $growing_number is: 28473909892
Terminating..