open CMD, '-|', 'ps', 'efax' or die "Cannot open pipe from ps: $!";

my $stat;
while ( <CMD> ) {
    $stat++ if /firstbo/;
    }

close CMD or warn $! ? "Error closing ps pipe: $!"
                     : "Exit status $? from ps";