#!/usr/bin/perl -w

use strict;
use IPC::Open2;
open2(*SSH_OUT, *SSH_IN, 'ssh -T localhost');
print SSH_IN "df -h";
my $df = <SSH_OUT>;
print SSH_IN "du -sh";
my $du = <SSH_OUT>;
print SSH_IN "exit";

print $df;
print $du;