'lsof_perl' => sub { print scalar(grep(/file_a/, `$lsofcmd3`));
                                },