[mattr@taygeta perlmonks]$ ./ctr.pl 
 incremented to: 1
 incremented to: 2
 incremented to: 3
 incremented to: 4
 incremented to: 5
 incremented to: 6
Final value is 6