...
$telnet= new Net::Telnet(Host=>1.1.1.11,Port=>9000,Timeout=>10);
...