use strict;
use warnings;
use Net::Telnet;
use Term::ReadKey;

sub get_password;

my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open('bilbo.mis.cypress.com');
print "\nUser: ";
my $user = <>;
my $password = get_password;
$telnet->login($user,$password);
$telnet->print('who');
my $output = $telnet->waitfor('/\$ $/i');
print $output;

sub get_password
{
    print "Password: ";
    ReadMode( noecho  => *STDIN );
    my $password = <STDIN>;
    ReadMode( restore => *STDIN );

    return $password;
}