sub RecieveFile
{
   my($server) = $_[0];
   $line = <$server>;
   $line =~ /Sending (.*):/;
   print("Receiving $1...\n");
   open(OUT, ">$1.cpy") || die("Cannot open $1.cpy: $!\n");
   binmode(OUT);
   while(($_ = <$server>) ne "END\n")
   {
       print OUT;
   }
   close(OUT);
   print("Finished\n");
}