#!/usr/bin/perl -w
use Net::SSH::Perl;
$ssh = Net::SSH::Perl->new("xxxx");
$ssh->login("xxxx","YYYY");
($stdout, $stderr) = $ssh->cmd('df -k');
print $stdout;
$ssh->cmd("exit");