$gif_data = $im->gif;
open (TEST,"$image_test") || die;
binmode TEST;
print TEST $gif_data;
close TEST