RosettaCodeData/Task/Send-an-unknown-method-call/Perl/send-an-unknown-method-call.pl

package Example;
sub new {
    bless {}
}
sub foo {
    my ($self, $x) = @_;
    return 42 + $x;
}

package main;
my $name = "foo";
print Example->new->$name(5), "\n"; # prints "47"