- my $procs = qx(ps aux | grep [p]erl | wc -l);
+ my $procs = qx(ps aux | grep [p]erl | grep -v grep | wc -l);