#!/usr/bin/perl $chorizo= $ENV{'QUERY_STRING'}; $chorizo = "uk&es&cb&ALICANTE_AER&&" if($chorizo eq ""); { print "Content-type: text/html\n\n"; print <