Help for this page
use Net::OpenSSH; my $ssh = Net::OpenSSH->new(...); my $out_fh = $ssh->pipe_out("egrep -l $searchStr * 2>&1 | tee ~/myfile +.txt\n");