package My::Child;
use strict;
use base 'My::Parent';

sub new {
    my $pkg = shift;
    my $self = $pkg->SUPER::new(@_); # call's My::Parent::new
    # .. add new fields, do additional things..
    return $self;
}

1;