my $obj = bless {}; my $method_name = sub {"Just another Perl hacker,\n"}; print $obj->$method_name();