use Net::Telnet

$t=new Net::Telnet(Timeout =>100,
                   Prompt => '/[\$?>:#\]]*$/');

if($t->open('192.168.1.200'))

{
  print "connected";

}
else
{
  print "not connected";
}
# if i give wrong user name and password also it didnt<br/>
 show #error msg
$t->login('test','test123');
@lines=$t->cmd("ls");
# always prints 1
$t->close;