Select Code to Download

use feature qw/ state /;
state $counter = 1;

 BEGIN {
    my $counter = 1;
    sub DirPP {
...
        return;
    }
}