title: Perl, Image::Magick, lost bytes when writing
body: <p>Good evening.</p>
  
  <p>There is a problem.</p>
  
  <pre><code>my $image = Image::Magick-&gt;new;
  $image-&gt;Read($upload-&gt;tempname . '[0]');
  $image-&gt;Write(filename =&gt; $upload_file_name, compression =&gt; 'None');
  </code></pre>
  
  <p>After executing the file sizes ($upload->tempname and $upload_file_name) do not match.
  Image format is jpg ($upload->tempname is JPEG, $upload_file_name is JPEG).
  In what could be wrong?</p>