Скрипт для редиректа

Разбрасывает случайным образом на заданные урлы (например, на галлереи на CJ):

Состоит из двух фалов:

Список урлов (chmod 744)
links.dbf

http://www.yourserver.com/gallery1/index.html
http://www.yourserver.com/gallery2/ndex.html
http://www.yourserver.com/gallery3/ndex.html

Скрипт редиректа (chmod 755)
redirect.cgi

#!/usr/bin/perl
$linkfile = "link.dbf";
open (FILE,"$linkfile");
@LINES=<FILE>;
$SIZE=@LINES;
close(FILE);
srand();
print "Location: $LINES[int rand $SIZE]\n\n";
exit;

<--The end-->

Может кому-нибудь еще понадобится кроме меня.