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

##</code><code>##

<IMG SRC="image.cgi">

##</code><code>##

<IMG SRC="&image_routine">

##</code><code>##

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