use Term::ReadKey qw(GetTerminalSize ReadMode);
open(TEL, "| telnet $arg");
$username=<>
print <TEL> $username;
ReadMode 2; chomp($pass=<STDIN>); ReadMode 0;
print <TEL> $pass;