#!/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 <IMAGE>;
} else {
    print "Content-type: text/plain", "\n\n";
    print "Sorry! I cannot open the file $gif_image!", "\n";
}

exit (0);