$b = new SubMaker();
sub a {
   my $var;
   $b->make_sub("subname");
   subname();
}