binmode IMAGE;
...

open IMAGE, $file_name or die "ERROR $!";

##</code><code>##

open IMAGE, $file_name or die "ERROR $!";
binmode IMAGE;