Select Code to Download

use B qw(svref_2object);
use Foo::Bar;
...
   print "About to call $anon_name...\n";
   $anon->(@args);
}