my $self = OO->new( $ARGV[0] eq 'Fido' ? $dog : $cat );