ok, here is the code...
i am sure, that now you want to see again my domain information... :

i tried two different, but it gives the same error

@okaydomains = ('http://tomj.net','www.tomj.net');
@okaydomains = ('tomj.net','www.tomj.net');

the last one is by AnthroRules

sub valid_page
{
if (@okaydomains == 0) {return;}
$DOMAIN_OK=0;
$RF=$ENV{'HTTP_REFERER'};
$RF=~tr/A-Z/a-z/;
foreach $ts (@okaydomains)
{
if ($RF =~ /$ts/)
{ $DOMAIN_OK=1; }
}
if ( $DOMAIN_OK == 0)
{ print "Content-type: text/html\n\n Sorry, cant run it from here....";
exit;
}
}