Help for this page
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);