sub testit{ print 'hi' };;

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

my $codeRef = \&testit;;

doit( &$codeRef );

##</code><code>##

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

doit2( sub { print 'hi2' });