Not sure what you are trying to do, but the following may suggest some things to think about. You may also be interested in Not quite an OO tutorial for a light weight introduction to Perl OO.

use strict;
use warnings;

package cParent;

sub new {
    my ($class) = @_;
    my $self = bless {test_att => 3}, $class;
    return $self;
}


sub parent_sub {
    my ($self) = @_;
    
    print "In parent. Test value is $self->{test_att}\n";
}


package cChild;

push @cChild::ISA, 'cParent';

sub child_sub {
    my ($self) = @_;
    
    print "In child_sub. Test value is $self->{test_att}\n";
}


package main;

my $obj = cChild->new();

$obj->child_sub();
$obj->parent_sub();
[download]

Prints:

In child_sub. Test value is 3
In parent. Test value is 3
[download]

If the reply is way off base maybe you need to tell us more about what you are trying to achieve.