#!/perl/bin/perl
#==========================================================

use strict;
use CGI qw/:param :header/;
use CGI::Carp qw/fatalsToBrowser/;

param('img') ? img() : main();

#==========================================================

sub main {
#----------------------------------------------------------
# Print the html.

print header();
print q|<img src="test.cgi?img=title.gif">|;
}

sub img {
#----------------------------------------------------------
# Read and print the image.

my $path = "/apache/htdocs/images/desk/@{ [ param('img') ] }";

open IMG, "<$path" or die "Can't open $path: $!";
binmode IMG;
read IMG, my $bin, -s IMG;
close IMG;

print header('image/gif');
print $bin;
}