#!/usr/bin/perl5
use Net::Telnet ();
$username = rami
$passwd = rami
$t = new Net::Telnet (Timeout => 10,Prompt => '/bash\$ $/');
$t->open("10.10.4.11");
#$t->login($username, $passwd);
@lines = $t->cmd("ls");
print @lines;