Select Code to Download

a();
...
  # i'm pleasing you to print a or b
  print "var: $var";
}

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