package Child;
use base qw(Parent);

sub new {
	my ($class, $arg1, $arg2, $arg3) = @_; 
	#my $self = SUPER->new($arg1, $arg2);
	my $self = $class->SUPER::new($arg1, $arg2);
	#$self->{arg3} => $arg3;
	$self->{arg3} = $arg3;
	#bless $self, $class;
    return $self;
}

return 1;