$telnet = Net::Telnet->new(Host =>"$x",timeout=>13,errmode=>return);