See my note on pointers to member functions.

That code lets you say:

use PMF;

my $p = PMF->new('print');

$p->$o(123);       # Call $o->print(123)
$p->$x('a','b');   # Call $x->print('a','b')
$p->$z();          # Call $z->print
[download]