Select Code to Download

package Foo;

...
    my $arg  = shift;
    return join( ' ', ($self->{val}) x $arg );
}

my $f = Foo->new('doot');
my @meth = (qw(zug zwang));
...

my $m = $meth[rand @meth];
print $f->$m(3), $/;

my $f = Foo->new('doot');

...
my @meth = (\&Foo::zug, \&Foo::zwang);

print $f->${\$meth[rand @meth]}(3);