#!perl            #yes I WILL use -wT within the final code!
use CGI;
$|=1;             # I put this on my own IS IT RIGTH ?
$q=new CGI;
print $q->header(     -nph=>1,         #unfortunatly IIS
                      -status=>'200 OK',
                      -type=>'text/html'),

$val=$q->param('colore');
if ($val eq 'red'){print $q->h3(tomorrow we will have sun')}
else  {print $q->h3('Good Morning!)}

$q->end_html();