# read what comes back down the socket

 my $file = "/tmp/dump.txt";
 open(FH,">>$file");
 open(SOCK,"<$sock");
 while(<SOCK>){
      print FH;
 }
 close FH;