my $anon;

$anon = sub {
   my $count = shift;
   if ($count--) {
        print "Iterating\n";
        $anon->($count);
   }
};
[download]