Link multifuncion

[polifemo]

El script.pl quedaria asi?
Como hace para cuando llegue a la pagina 4 empieze otra vez por la 1?

#!c:/perl/bin/perl.exe

print "Location: http://www.pagina1.com \n\n";
print "Location: http://www.pagina2.com \n\n";
print "Location: http://www.pagina3.com \n\n";
print "Location: http://www.pagina4.com \n\n";