open(OUT, ">>telnet.log");

##</code><code>##

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