package Dog;

sub new {
    my $pkg = shift;
    bless {
        intelligence => shift,
    }, $pkg;
}