my $ref = foo->can('bar');
warn "$ref";
foo->$ref();
foo->tell();