## Connect and login.
           use Net::Telnet ();
           $host = new Net::Telnet (Timeout => 30,
                                    Prompt => '/[%#>] $/');
           $host->open($hostname);
           $host->login($username, $passwd);
           $host->cmd("export TERM=vt100");