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