#!/usr/local/bin/perl

use strict;
use warnings;

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

()-()
 \"/
  `

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.