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

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