#!/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;