#!/usr/local/bin/perl

use strict;
use warnings;

my @foo = `ps -deaf | grep httpd | grep -v grep | wc -l`;
foreach (@foo) {
    print;
}