Re^2: script to listen on a port & redirect to a file

[a31modela]

thanks for the quick reply.... so are you saying the script should look like this ?

my $new_sock = $sock->accept();
    open my $fh, '>>', $file or die $!;
        while(<$new_sock>) {
         print <$fh>;
#######close $fh;
}

Is this what you mean?

thanks, steve

[VinsWorldcom]

I think he means:

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

Alternatively, just add:

$|++

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