~ $ perl -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); print $cr->();'
Subroutine g redefined at (eval 1) line 1.
21~ $