#!/usr/bin/perl
use strict;

#(C) 2003 John B. Silvestri <silvestrij@users.sourceforge.net>
#include <license/gpl.txt>

my $my_input=$ENV{QUERY_STRING};
my $file_type=qx/file icons\/$my_input/;

open FILE, "icons/$my_input";
print "Content-Type: image/gif\n\n" if $file_type =~ m/GIF/;
print "Content-Type: image/jpeg\n\n" if $file_type =~ m/JPEG/;
print (<FILE>);
close FILE;