package Baseclass;
use strict;
use subclass1;

print "load Baseclass\n";

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