#!/usr/local/bin/perl

use Net::SSH::Perl();
use Net::SSH::Perl::Cipher();

system("stty -echo");
print "Username: ";
chomp($username = <STDIN>);
print "\n";
print "Password: ";
chomp($password = <STDIN>);
print "\n";
print "hostname: ";
chomp($host = <STDIN>);
print "\n";

system("stty echo");

my $ssh = Net::SSH::Perl->new(
                        $host,
                        cipher => Net::SSH::Perl::Cipher::name(DES3),
                        debug => 1,
                        );

#$connection = $ssh ->  ($username);
#@command = $ssh->cmd("enable");
#print @command;
[download]