#replicating the Origianl Post (strictures on):

my $coderef = sub {print "Hi There \n";};
sub doit(&){          
    &{$_[0]};
    }
doit($coderef);     #accessing a code ref from within a subroutine
                    #Without prototype-check disabling..