my $self = __PACKAGE__; $self = shift if UNIVERSAL::isa ($_[0], __PACKAGE__); #### Child->test(); package Parent; sub test { my $self = __PACKAGE__; $self = shift if UNIVERSAL::isa ($_[0], __PACKAGE__); print "Package name : $self\n"; } package Child; use base Parent;