Select Code to Download

sub testit{ print 'hi' };;

sub doit (\&) { $_[0]->() };;
...
my $codeRef = \&testit;;

doit( &$codeRef );

sub doit2 (&) { $_[0]->() };

doit2( sub { print 'hi2' });