use strict;
my $rc=system("ps -ef | grep [i]netd");
if ($rc) {print "inetd seems to have gone the way of the dodo.\n"};

##</code><code>##

use strict;
use Proc::ProcessTable;
my $proctable=Proc::ProcessTable->new;
my $proclist= $proctable->table;
my @result=map {/(inetd)/} @$proclist;
unless (scalar(@result)) {print "inetd->walk({direction=>dodo})\n"};