my $foo= "not_a_code_reference"; print "oops!\n" if eval { \&$foo };