I think he means:

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

Alternatively, just add:

$|++
[download]

before the "$sock->accept()" call in your original script and the redirect to file will work.