Select Code to Download

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

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