package Foo;

# must use '\' to create the reference, and since it's a 
# reference not an invocation, we can't specify arguments 
# here. (see the .pl file at the end)

*do_something = \&make_do_something;

sub make_do_something {
    # make_do_something is the method called, hence the 
    # object reference will be on *this* @_, not the 
    # one below.
    my ($self, $name) = @_;