use Net::OpenSSH;
use Net::Telnet;
my $promptre = '/\w+[\$\%\#\>]\s{0,1}$/o';
my $ssh = Net::OpenSSH->new('hostname', user => 'username',
                             password => 'password',
                             kill_ssh_on_timeout => 1,
                             timeout => 30);
my ($fh, $pid) = $ssh->open2pty({stderr_to_stdout => 1});
my $cn = Net::Telnet->new(
                fhopen => $fh,
                prompt => $promptre,
                timeout => 30,
                errmode => 'return',
                telnetmode => 0,
                cmd_remove_mode => 1,
                output_record_separator => "\r",
);
my @memory  = $cn->cmd("show memory");
my @process = $cn->cmd("show process");