my $fetch;
$fetch = sub {
   ...
   $fetch->();
   ...
};

...
$fetch->();
...

##</code><code>##

use feature qw( current_sub );

my $fetch = sub {
   ...
   __SUB__->();
   ...
};

...
$fetch->();
...