Untitled
public text v1 · immutable
# read what comes back down the socket
my $file = "/tmp/dump.txt";
open(FH,">>$file");
open(SOCK,"<$sock");
while(<SOCK>){
print FH;
}
close FH;
# read what comes back down the socket
my $file = "/tmp/dump.txt";
open(FH,">>$file");
open(SOCK,"<$sock");
while(<SOCK>){
print FH;
}
close FH;