#!/usr/bin/perl  
use Net::Telnet;
use Term::ReadKey;
$telnet = Net::Telnet->new('192.168.1.65');

print "Login Name : "; 
$HOST = <STDIN>; 

ReadMode("noecho",STDIN); 
print "Password : "; 
$USER = <>;
print "\n"; 
ReadMode("original",STDIN); 

$telnet->login($HOST,$USER) or die print "can't access server"; 
@ls = $telnet->cmd('ls');
for(@ls){print;}