#!/usr/bin/perl $cadena= $ENV{'QUERY_STRING'}; @cadena = split(/\&/,$cadena); $nada=$cadena[0]; $accion=$cadena[1]; $afiliado=$cadena[2]; $idioma=$cadena[3]; $pais=$cadena[4]; $zona=$cadena[5]; $destino=$cadena[6]; $chorizo = "$idioma&$pais&$zona&$destino&&"; $chorizo = "uk&es&cb&ALICANTE_AER&&" if($chorizo eq ""); { print "Content-type: text/html\n\n"; print <