Select Code to Download

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

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

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