if ($line[0] =~ /STAT/) {
      my $name = $line[5];
      print "name = >$name<\n";
      my $status = $line[4];