if( !defined &$c ){ 
    eval{ $c->() }; 
    print $@ 
};;
Undefined subroutine &main::test1 called at (eval 19) line 1, <STDIN> line 14.