open my $out, ">>", "telnet.log" or die $!;