Select Code to Download

     foreach (keys %known_files)
     {
          if(/announcements|links|news|info/i)
...
                $top_level{$_} = $known_files{$_};
          }
     }

     sub middle
     {
          print @lines;
     }