Select Code to Download

eval { print speak('sheep'), "\n"; };
print $@ if $@;
...
__END__
Died at Perl-1.pl line 21.
foo

use 5.010_000;

...
__END__
baa
foo

BEGIN {
    my %says = (
...
        return $says{$animal};
    }
}

{
    my $says;
...
        return $says->{$animal};
    }
}

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