open(OUTPUT, ">$0.gif") or die "Can't open $0.gif: $!\n";
print OUTPUT $image->gif();
close(OUTPUT);