open FILE, "$senddir/$file"
          or die "$senddir/$file: $!"

      my $file = do { local $/; <FILE> };
      close(FILE);

      if ( $file =~ m/$errors/mo ) {
          # move the file
      } else {
          # open the socket and send $file, as before
      }
  }