Select Code to Download

package Baseclass;
use strict;
...
    return bless {},$class;
}
1;

package Subclass1;

...
}
print "load Subclass1\n";
1;

use strict;
use warnings;
...

my $obj = Subclass1->new;
1;

Load Subclass1
load Baseclass
Subroutine new redefined at Subclass1.pm line 11.
Load Subclass1