while (my $line=$telnet->get(Timeout => $timeout, Errmode => 'return')) {