Link multifuncion

[monoswim]

Más fácil ni usemos ningún TXT ni nada, el script sería algo así

#creamos un array con las distintas URL a redireccionar
my @urls = ['http://www.wpymes.com','http://www.yahoo.com.ar','http://www.google.com.ar'];

#tomamos la cantidad de elementos que tiene tu array
my $total = @urls;

#tomamos un elemento al azar
my $azar = ESTO INVESTIGALO VOS, ES QUE NO ME ACUERDO COMO SE LLAMANA LA FUNCIÓN...JEJE

#redireccionamos
print "Location: $urls[$azar] \n\n";

#fin del script
exit;

Fácil no ?

Espero que te sirva

Saludos