while ( read(FILE, $buf, 512) ) {
      foreach ( $buf =~ m/./gs ) {
          $binhex .= $hex[ord($_)];
      }
  }