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