open (TEST,">$image_test") || die;