#!/usr/bin/perl -w
 use Net::SSH::Perl;
    my $ssh = Net::SSH::Perl->new ("$hostname");
    $ssh->login("xxxx","xxxx");
    my($stdout, $stderr, $exit) = $ssh->cmd(" hostname");
    print "$stdout\n";