#!/usr/bin/perl $cadena= $ENV{'QUERY_STRING'}; @cadena = split(/\&/,$cadena); $idioma=$cadena[0]; $pais=$cadena[1]; $zona=$cadena[2]; $destino=$cadena[3]; $chorizo = "$idioma&$pais&$zona&$destino&&"; $chorizo = "uk&es&cb&ALICANTE_AER&&" if($chorizo eq ""); { print "Content-type: text/html\n\n"; print < Rental Car Hire in Europe, Alicante, Malaga, Almeria, Valencia, Majorca, Airport, Spain HTML }