#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Process;

$myproc = Process->new();      # Neues Prozeß-Objekt anlegen
$myproc->start("sleep 10") ||  # Sleep-Prozeß starten
    die "Start: Error";        # Fehler?

for($i=1; $i<=5; $i++) {       # Prozeß-Status periodisch
    if($myproc->poll()) {      # abfragen
        print "Läuft\n";       # Prozeß aktiv
    } else {
        print "Läuft nicht\n"; # Prozeß terminiert
    }

    if($i==3) {                # Im dritten Durchlauf ...
        $myproc->kill() ||     # Prozeß terminieren
            die "Kill: Error";
    }

    sleep(1);                  # Schlafen bis zur nächsten Runde
}