Select Code to Download

{   package Animal;
    use Carp qw( croak );    
...
{   package Sheep; use base 'Animal'; sub makes_sound { "baa"  } }
{   package Cow;   use base 'Animal'; sub makes_sound { "moo"  } }
{   package Pig;   use base 'Animal'; sub makes_sound { "oink" } }

use Devel::Symdump;
sub make_animal {
...
}

print make_animal( 'oink' );