BEGIN {
    my %says = (
        sheep  => 'baa',
        monkey => 'foo',
    );

    sub speak {
        my $animal = shift;
        die unless defined $says{$animal};
        return $says{$animal};
    }
}