use strict;
use warnings; # i've upgraded to 5.6 last night ;)
use CGI;

my $answer = new CGI;

if ( $date eq "today" ) {
   print $answer->redirect(-uri=>'http://some.server/cgi/script.pl?date=today');
} else {
   print $answer->redirect(-uri=>'http://some.server/cgi/script.pl?date=dateItIs');
}

##</code><code>##

<myExperience>
$mostLanguages = 'Designed for engineers by engineers.';
$perl          = 'Designed for people who speak by a linguist.';
</myExperience>