Есть ли такой скрипт?

Привет.
Я хотел бы спросить есть ли такой скрипт: когда посетитель нажимает на ссылку типа - http://www.smt.ru/cgi-bin/out то он посылается на тот сайт, который выбранн случайно из файла - site.txt ?

[Lion]

Конечно есть. На cgi.ru был

[cyberg]

#!/usr/bin/perl
open(URL,"site.txt");
@url = ;
close (URL);
$rand=int rand(@url);
print "Location: @url[$rand]\\n\\n";

Вот и вся математика