[...]
open my $fh, '>>', $file or die $!;
while(<$new_sock>) {
    print $fh $_;
}
[...]