#!/usr/bin/perl -wT

use strict;
use warnings;

use lib '.';
use DynamicMammals;

my $felix = DynamicCat->new();
my $spot  = DynamicDog->new();
my $thing = DynamicFrankenMammal->new();

foreach my $critter ($felix, $spot, $thing) {
    $critter->walk();
    $critter->talk();
}

__END__