open (FILE,">$serverFile") or die $!;

   while (my $bytesread=read($filename,$buffer,1024)) {
       print FILE $buffer;
   }
   close (FILE);