#!/usr/bin/perl

use Proc::ProcessTable; # Modul aus dem CPAN

$ps = new Proc::ProcessTable;

$ret = 0;
PROZESS: foreach $prozess (@ARGV) {
   foreach $p ( @{$ps->table} ){
       next PROZESS if ($p->{cmndline} =~ /^$prozess/);
   }

   print "Prozess $prozess läuft nicht!\n";
   $ret = 1;
}

exit $ret;