Select Code to Download

package X;
sub new {
...
}
sub blah {  printf "blah v1\n"; }
1;

package X;
sub new {
...
}
sub blah {  printf "blah v2\n"; }
1;

#!/usr/bin/perl
use lib '.';
...
eval `cat X.pm`;
$x1->blah;
my $x2 = X->new();

[me@host tmp]$ cp X1.pm X.pm
[me@host tmp]$ ./x.pl
...
Trying X.pm
blah v2
new() v2