#!/usr/bin/perl

use strict;
use warnings;

use CGI;

# do statistics stuff...

my $q = CGI->new;
print $q->header( 'image/gif' );

# slurp file and output
local $/;
open my $fh, 'tiny_img.gif' or die $!;
print <$fh>;