while($line = <$socket>){
  print FILE $line;
}