#!/usr/local/bin/perl $gif_image = join ("/", $ENV{'DOCUMENT_ROOT'}, "icons/tiger.gif"); if (open (IMAGE, "<" . $gif_image)) { $no_bytes = (stat ($gif_image))[7]; print "Content-type: image/gif", "\n"; print "Content-length: $no_bytes", "\n\n"; print ; } else { print "Content-type: text/plain", "\n\n"; print "Sorry! I cannot open the file $gif_image!", "\n"; } exit (0);