package parentClass;

use parentClass::childClass;

sub new {
    my ($class, %params) = @_;
    my $self = {};

    bless ($self, $class);
    return ($self);
}
1;


package parentClass::childClass;

sub new {
    my ($class, %params) = @_;
    my $self = {};

    bless ($self, $class);
    return ($self);
}

sub myMethod {

return ('Yo I am one sweet method');

}


Test Script utilizing these classes:

use parentClass;

$object = parentClass->new();

print $object->myMethod();