Select Code to Download

use strict;
package Myclass;
...
sub foo { return 1; }

1;

use strict;
package Myclass;
...
sub foo { return 42; }

1;

use strict;
use Myclass;
...
<STDIN>;
do 'Myclass.pm';
print "Foo is " . &Myclass::foo . "\n";