$self -> {'telnetConn'} => new Net::Telnet( Timeout => 10, errmode => # if connection is unsuccessful ( sub { $self -> {'full_info'} = CLIENT . ",," . $ip . ",TIMEOUT"; $self -> {'fault'} = "-No Response"; $self -> {'time_out'} = 1; } ) );