Select Code to Download

use strict;
use warnings;
...
    print "\n";
}

++*k;
while (*k) {
...
--*k;
--*k;
--*k;