binmode IMAGE;
...

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