$quiz->$act()

##</code><code>##

use strict;
sub Foo::hello {
    shift; 
    printf "Hello, %s!\n", shift;
}

my $meth = "hello";
my $class = "Foo";
$class->$meth("world");