package Parent;

sub new {
  my ($class, @args) = @_;
  bless [ @args ], $class;
}


package Child;

@ISA = 'Parent';