package packageA;

sub new {
    my $class = shift;
    $class = ref $class if ref $class; #-- возможность использовать как packageA::new так и такую комбинацию:
                                       #--  $a = packageA::new;
                                       #--  $b = $a->new;
    bless {}, $class;
}

 1 ;

package packageB;

use base qw/packageA/;

sub new {
    my $class = shift;
    $class = ref $class if ref $class;  # -- аналогично... :)
    my $self = $class->SUPER::new;
#    bless $self, $class; -- уже блеснутый, повторно блесать не надо :)
}

 1 ;