my $does = bless {}, 'Test';
my $it = 'test';

my $answer = $does->$it('work?');
print $answer, "\n";

package Test;

sub test {
    return 'Sure';
}