Help for this page
open (TEST,">$image_test") || die;
open(TEST,">$image_test") || die "Error: no open (write mode) for '$image_test': $!";