Select Code to Download

print "Content-type: image/gif\n\n";
print $im->gif;

<IMG SRC="image.cgi">

<IMG SRC="&image_routine">

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