my $exp = new Expect;
....
$exp->raw_pty(1);
$exp->log_stdout(0);
$exp->spawn($telnet $host);||die;
$exp->expect($timeout,
                 ['ogin:', sub { $exp->send("$username\n"); exp_continue; } ],
                 ['assword:', sub { $exp->send("$password\n"); } ],
                 [timeout => sub { die "<center>ERROR: <BR>A timeout hast occured at login</center>\n"; }  ],
                );
$exp->log_file(\&formatoutput);
$exp->send("/bin/sh\n");