package Baseclass;
use strict;
use subclass1;

print "load Baseclass\n";

sub new  { 
    my $class = shift;
    return bless {},$class;
}
1; 

##</code><code>##

package Subclass1;

use strict;
use warnings;

use base( "Baseclass" );

sub new {
    my $class = shift;
    return $self  = $class->SUPER::new(@_);
}
print "load Subclass1\n";
1;

##</code><code>##

use strict;
use warnings;
use Subclass1;

my $obj = Subclass1->new;
1;

##</code><code>##

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