open( my $ps_fh, "-|", "ps -ef" ) or die "Can't open pipe from ps: $!\n";
my $load = 0;
while( <$ps_fh> ) {
  $load++ if /somecmnd\.exe$/;
}
close( $ps_fh );