$telnet->waitfor( -match => qr{ogin}  );
$telnet->print($user);
$telnet->waitfor( -match => qr{assword}  );
$telnet->print($password);