#!/usr/bin/perl -w

use strict;
use CGI::Carp;
use CGI;

my ($cgi) = new CGI();

my ($gif_name) = 'whatever.gif';  # Or $cgi->parameter('show')
my ($image);

open (GIF, $gif_name) || die "Could not open $gif_name: $!\n";
binmode (GIF);
read (GIF, $image, -s $gif_name);
close (GIF);

binmode (STDOUT);

print $cgi->header("image/gif");
print $image;