use strict; package Myclass; sub foo { return 1; } 1; #### 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";