Rather than using a system call to ps and grep, you could do the whole thing in perl using Proc::ProcessTable.

BazB