package My;
print "Loading...\n";
sub Run { print "Running\n" }

##</code><code>##

use My;
delete $INC{"My.pm"};
undef &My::Run;            # Why do this?!
delete $My::{Run};
require My;
eval "My::Run()";
My::Run();

##</code><code>##

Loading...
Loading...
Running
Undefined subroutine &My::Run called at -e line 1.

##</code><code>##

use My;
delete $INC{"My.pm"};
delete $My::{Run};
require My;
eval "My::Run()";
My::Run();

##</code><code>##

Loading...
Loading...
Running
Running

##</code><code>##

use My;
<STDIN>;                       # NEW
delete $INC{"My.pm"};
delete $My::{Run};
require My;
eval "My::Run()";
My::Run();

##</code><code>##

Loading...

Loading...
Running again
Running

##</code><code>##

Loading...

Loading...
Running again