Select Code to Download

#!/usr/bin/perl -w 

use strict;
...
package main;

my $foo = new Foo;

my $do_it = \&Foo::do_it;
$do_it->('direct call');

my $ref = ref($foo);
my $do_it2;
eval "\$do_it2 = \\&${ref}::do_it";
$do_it2->('indirect call');