#!/usr/bin/perl

use strict;
use warnings;

{
    package Foo;

    sub new { bless {} => shift }
    sub name { return 'telcontar' }
}

my $method = sub { return shift->name };
print Foo->new->$method;