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