my $firstLineFlag++;
my $sessid;
while (my $line = <IN>) {
   my @temp = split (/[=]/, $line);
   if ($temp[1] > 100) {
      print "Session id: $temp[1]  ";
   }

   if ($firstLineFlag) {
      $sessid = $temp[1];
      $firstLineFlag = '';
   }
   if ($temp[1] ne $sessid) {
      if ($temp[1] == 20) {
         print " V34\n\n ";
      } elsif ($temp[1] == 9) {
         print " no connection\n\n";
      }
      $sessid = $temp[1];
   }
}