package MotherClass::ChildClass1;

use strict;
use vars qw/@ISA/;

use MotherClass;
@ISA = qw/MotherClass/;

sub new {
   my ($class, $args) = @_;
   my $self = $class->SUPER::new($args);
   ...
}