#!/usr/bin/perl -wT use CGI qw(:all); use strict; $|++; my $referer = referer() || ''; ($referer =~ /^http:\/\/www\.tmdrfan\.com\//) || ($referer =~ //) || die "invalid referer: $referer"; my $image = param('image') || ''; my $title = param('title') || ''; print header(); print <