##
use strict;
package Myclass;
sub foo { return 42; }
1;
##
##
use strict;
use Myclass;
print "Foo is " . &Myclass::foo . "\n";
print "Modify the file and hit enter\n";
;
do 'Myclass.pm';
print "Foo is " . &Myclass::foo . "\n";