use Human;
use Mouse;

my %classes = ( H => 'Human', M => 'Mouse' );
my $species = get_species();      # returns 'H' or 'M'
my $organism = $classes{$species}->new;