Select Code to Download

sub new_accessor {
   my $start    =  $_[0];
...
   my $rec1 = new_accessor($start1, $end1, $data);
   print($rec1->(), "\n");
}