~ $ perl -w  -e'sub g{1}; my $cr=\&g; delete $::{g}; eval q(sub g{2}); print g(); print $cr->();'         
11~ $