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