Minor nit: the questioner was using grep, which is still a nice way to do it:

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

I'm not familiar with the module, so I don't know if you need the \b in the pattern or not, but it shouldn't hurt.

Untested code, etc., etc.