my $ssh = Net::SSH::Perl->new('host');
$ssh->login('user','pass');
my ( $stdout, $stderr, $exit ) = $ssh->cmd('uptime');

print qq(Content-type: text/html

);

print "output from ssh: $stdout\n";
print "error from ssh: $stderr\n";
print "</html>\n";

##</code><code>##

mkdir /.ssh: Permission denied at /usr/lib/perl5/vendor_perl/5.8.4/Net/SSH/Perl/Util/Hosts.pm line 50