$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\n\n"); exit;
}
}