# Open the file: open (GIF, "/home/httpd/images/my_perl_gif.gif") || die "$!\n"; my ($image, $buff); while (read GIF, $buff, 1024) { $image.=$buff; } close GIF; # Now send the information to the browser: print "Content-Type: text/html\n\n"; print ''; print "My GIF"; print '';