Select Code to Download

my $anon = sub {
   my $func = shift;
...
        $func->($count);
   }
};

my $counter = sub { $anon->($anon, shift) };