use Net::SSH::Perl
print "What username?\n";
$username = <STDIN>;
chomp$username;
print "What password?\n";
$password = <STDIN>;
chomp$password;
my $cmd = 'get log event';
my $host = 'x.x.x.x';
my $ssh = Net::SSH::Perl->new($host, cipher => DES3,  protocol=>1, debug => true, use_pty=>1);
$ssh->login($username, $password);
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print $stdout

##</code><code>##

#1 RSA authentication failed:  Can't load public key. #2 
Warning: ignoring packet of type 15.