Select Code to Download

#!/usr/bin/perl

...

print "Final value is " . $c->{ctr} . "\n";

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