Select Code to Download

sub quack(RubberDuck $self) { ... }
sub quack(Mallard $self)    { ... }

package RubberDuck;

...
    my $duck = $duck_class->new();
    $duck->make_noise();
}