$ perl -le " sub fudge { 42 } print main->can(q/fudge/)->() " 42