Select Code to Download

  # list processing
  print map "$_<br />", <AP_MENU>;
...
      local $, = "<br />";
      print <AP_MENU>, '';
  }

  while ( <AP_MENU> )
  {
...

      print "$_<br />\n";
  }