$AYAR{siteler} = ['siteniz.com', 'www.siteniz.com'];
#Yukardaki site isimlerini çoğaltabilirsiniz.

foreach (@{$AYAR{siteler}}){
if($ENV{'HTTP_REFERER'} =~ /$_/i){
print (" Doğru siteden geldiniz. ");
exit;
}
else
{
print ("Location: hata.htm "); exit;
}
}