#!/usr/bin/perl

use Net::SSH qw(sshopen2);
use strict;

my $user = "cosmicsoup";
my $host = "mybox.somewhere.com";
my $cmd = "/bin/sh";
my @commands = ('df -k','free','uptime');

sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
foreach(@commands) {
    print WRITER "$_ && echo DDDOOONNNEEE\n";
    while (<READER>) {
      chomp();
      last if /DDDOOONNNEEE/;
      print "$_\n";
  }
}

close(READER);
close(WRITER);