Select Code to Download

#!/usr/bin/perl
#
...

New::MyModule::printer();
Old::MyModule::printer();

package New::MyModule;

do 'New/MyModule.pl' or die "New/MyModule.pl: $!";

1;

package Old::MyModule;

do 'New/MyModule.pl' or die "New/MyModule.pl: $!";

1;

sub printer {
    print "here we are in " . __PACKAGE__ . "\n";
}

1;

package New::MyModule;

...
}

1;

package Old::MyModule;

...
die "$file: did not end with a true value" unless($result);

1;