open (PS,"ps ax|") or die("Fehler : $!");
  @ps = <PS>;
  foreach (@ps)
   {
    if (($_[15] eq "T") or ($_[15] eq "X") or ($_[15] eq "Z"))
     {
      print("Prozess abgeschmiert");
     }
   }
  close(PS);