my $cmd1 = "cat /etc/passwd";
my $sshcmd = "/usr/bin/ssh -t -i \$HOME/.ssh/mypubkey -o 'StrictHostKeyChecking no' user\@host $cmd1";
open(IFILE, "$sshcmd |") || die "Bad open";

##</code><code>##

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

my @sshcmd = ('/usr/bin/ssh' => (
    -t => (),
    -i => "$HOME/.ssh/mypubkey",
    -o => 'StrictHostKeyChecking no',
    'user@host',
    @cmd
));

open(my $fr_ssh, '-|', @sshcmd)
    or die("Can't fork and pipe: $!\n");