#!/usr/bin/perl -w
$prompt = "\\\bash-2.03\\\\";
use Net::Telnet;
$telnet = new Net::Telnet(Timeout=>10,prompt=>"/$prompt/i",Errmode=>'die');
$telnet->open("xxx.xx.xxx.xxx");
$telnet->waitfor('/login:$/i');
$telnet->print('xxx');
$telnet->waitfor('/password:$/i');
$telnet->print('yyyyyyy');
$telnet->waitfor("/$prompt/i");