#/usr/bin/perl -wT
my $url_renvoye = undef;
my $protocole_serveur = $ENV {'SERVER_PROTOCOL'};
srand;
my $alea = int (rand 2) + 1;

if    ($alea == 1) {$url_renvoye = '../trounoir/trounoi2.htm#deb'}
elsif ($alea == 2) {$url_renvoye = '../trounoir/trounoi2.htm#deb'}

print "$protocole_serveur 302 OK\n";
print "Location: $url_renvoye\n\n";

# Fin