Select Code to Download

while(<AUTH>) {
   chomp;
...
      $sessionID{$4} = 1;
   }
}

open(MSG) or die("couldn't open msg log");
while(<MSG>) {
   chomp;
...
close(MSG);

print $_, "\n" foreach (@matching_lines);