eval {
       my $telnet = new Net::Telnet ( Timeout=>10,Port => $console_port ,Errmode=>'die');
       $telnet->open("$console_server");
     };
       warn "The server is unreacable? $@" if $@;