Help for this page

Select Code to Download

Select or download this

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