#!/usr/bin/perl
use CGI ;
my $cgi = new CGI ;
my $dominio = $ENV{SERVER_NAME} ;
if ($dominio =~ /reveartucasa/)
	{
	print $cgi->redirect("/usuario-final.html") ;
	}
else
	{
	print $cgi->redirect("https://superateconrevear.com/menu.html") ;
	}