Select Code to Download

use strict;
use warnings;
...
    my $count = 0;
    return sub {return ++$count;};
}

1
2
3