#!/usr/bin/perl -w
use Benchmark qw(:all);
use strict;

my $process = "processX";
my $lsofcmd1 = "/usr/local/bin/lsof -Pn -c $process|wc -l";
my $lsofcmd2 = "/usr/local/bin/lsof -c $process|wc -l";
my $count = 1000;

my $results = timethese($count,
        {
            'lsof_Pn_c' => sub { system($lsofcmd1);},
            'lsof_c' => sub { system($lsofcmd2); },
        },
        'none'
    );
print ("\n\n");
cmpthese( $results ) ;

### Results (ran it several times and got similar numbers) ###
#             Rate     lsof_Pn_c    lsof_c
# lsof_Pn_c   370/s           --       -0%
# lsof_c      372/s           0%        --