@referers = ('www.gate.net/~earthdes', 'file:/guest.htm', 'http://www.jamilin.com/'); # Check Referring URL &check_url; sub check_url { if ($ENV{'HTTP_REFERER'}) { foreach $referer (@referers) { if ($ENV{'HTTP_REFERER'} =~ /$referer/i) { $check_referer = '1'; last; } } } else { $check_referer = '1'; } if ($check_referer != 1) { &error('bad_referer'); } }