while (my $line = $socket->getline() ) {
                     chomp $line;
                     print {$file_handle} $line;
                 }