use strict;
use warnings;
use 5.010;

package Foo;

sub x {say "Hello"}

package main;

foo();

sub foo {
    my $obj = bless [], 'Foo';
    my $sub = $obj->can('x');
    goto &$sub
}
__END__
Hello