...
my @cmd = (cat => ( '/etc/passwd' ));

open(IFILE, '-|', @cmd) || die "Bad ssh open";
...

##</code><code>##

...
my @cmd = (cat => ( '/etc/passwd' ));
open (IFILE, '-|') || exec @cmd;
...