Select Code to Download

#you can use my to declare things even in the middle of a
...
   print NEWFILE $call_number,"</call_number>";
   print NEWFILE "</match>\n";
}