sub SendFile
{
   my($to, $file) = @_;

   print $to "Sending $file:\n";
   open(IN, $file) || die("Could not open $file: $!\n");
   binmode(IN);
   print $to <IN>;
   print $to "\nEND\n";

   close IN;
}

##</code><code>##

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");
}

##</code><code>##

use strict;

open(IN, $ARGV[0]);
binmode(IN);
open(OUT, ">$ARGV[0].cpy");
binmode(OUT);

print OUT <IN>;

close(OUT);
close(IN);