package Child;

use strict;
use warnings;

use Base;

our @ISA = qw( Base );

sub new {
   my $class = shift;
   my $self = $class->SUPER::new();
   $self->{nums} = [qw( 1 2 )];
   return $self;
}

1;