package foo;

sub bar { warn "$self(@_)" }
sub tell { $ref = \&bar; warn "$ref" }

package main;

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