#!/usr/bin/perl -w
### -----------------------------------------
### Module:  mytest
### Purpose: Launch and control a sleep 
###          process in background 
### Author:  Michael Schilli
### Date:    95/12/28
### -----------------------------------------

use Process;

# Create a new process object
$myproc=Process->new();

# Start the background process
$myproc->start("sleep 10");

# Check 3 times if process is running
for($i=1; $i<=3; $i++)
{ sleep(1);
  print "Prozess laeuft ", 
        $myproc->poll() ? "\n" : "nicht!\n";
}

# Terminate process
$myproc->kill() || print "Kill failed\n";
