Don't, use a module (like Module::Pluggable)

eval "sub foo { return 'bar'; } ; 1";
warn 'foo'->();
__END__
bar at - line 2.
[download]