#!/usr/bin/perl

print "Content-Type: image/jpeg\n\n";
binmode STDOUT;

if($ENV{HTTP_REFERER} !~ /jaggedpine/i) {
	open(FOO,"trogdorgame_th_tmp");
} else {
	open(FOO,"../host_your_own_avatar.jpg");
}
print while(<FOO>);
close FOO;