Select Code to Download

sub new_callback_accessor {
   my $start    =  $_[0];
...
   $rec1->(sub { print });
   print("\n");
}