package Hound;
use strict;
use warnings;

use base qw(Dog);

our @pack;

sub new {
    my $pkg = shift;

    my $obj = $pkg->SUPER::new(@_);
    push @pack,$obj;

    $obj;
}