Select Code to Download

#!/usr/bin/perl
# use v5.10; 
...
      printf "loop k = %d\n",$k;
     }# end for()

 Results are as follows:
 mytest
...
loop k = 7
loop k = 8
loop k = 9         <- loop goes 1 iteration too far