print "Starte:";
     $ergebnis =system("vmstat") or print" Fehler!";
     
     $anzahl = strlen($ergebnis);
     
     $prozess = $ergebnis[$anzahl-3];
     $prozess.= $ergebnis[$anzahl-2];
     $prozess.= $ergebnis[$anzahl-1];
     
     
     $ergebnis = 100 - $prozess;
     
     print "Prozessortleistung: $ergebnis %";