#!/usr/bin/perl
#Скрипт-переход по чередующейся ссылке
#Изменить, если необходимо первую строку- путь к перлу на вашем сервере.
#В файл site.txt запишите свои ссылки, при обращении к скрипту он будет пересылать 
#по ссылке за номером, указанным в первой строке и автоматически увеличивать его на единицу.
#Т.о. следующий переход будет осуществлен по следующей ссылке.
#Выложить в CGI-директории и установить права доступа click.cgi-644, site.txt-777
#На html-странице установить ссылку на click.cgi с учетом пути к нему.
#Автор: Головкин Александр. algol@hotmail.ru
#http://tpampico.virtualave.net/
print "Content-type: text/html\n\n";
open(DATA, "site.txt");
@site=<DATA>;
close(DATA);
$a=@site-1; $x=$site[0];
chomp($x);
$x=~/\d+/;
unless($x=~/\A\d+\z/){
                  $x=1;
                  $site[0]="1"."\n";
                 }
else{
    if($x<$a){
             $site[0]=++$site[0]."\n";
             }
    else{
         $site[0]="1"."\n";
        }
    } 

$url=$site[$x];
chomp $url;
open(DATA, ">site.txt");
print DATA @site; close (DATA);

print "$x<br>$url.";
#print "Location:$url\n\n;