unless (grep(/\binetd\b/, @$proclist))
{
    print "inetd's not there\n";
}