... snip ...
open(LOGFILE,>>"mylog.log") or die "Can't open mylog.log\n";
print $client "$cmds\r";
while( <$client> ) {
   print LOGFILE;
   }
   close $client;
}