#!/usr/bin/perl

$a=$ENV{'REQUEST_URI'};

$a=~ s/\/users\///;
$a="~".$a;

select(STDOUT);
 #printf ("Content-type: text/html\n\n");
#printf ("$a");
printf ("location: http://www.alliancefr.com/$a\n\n");

exit(0);