package Parent;

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

return 1;

package Child;
use base qw(Parent);

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

return 1;

##</code><code>##

use base('Parent');

##</code><code>##

use Exporter;
use vars qw(@ISA);
@ISA = qw(Parent);