$telnet = new Net::Telnet ( Timeout=>10, Port=>7300, Errmode=>'die');
$telnet->open('localhost')