#!/perl/bin/perl.exe -wT

use CGI;
$q = new CGI;
$name = $q->param('name');
$comment = $q->param('comment');

if ($name =~ /^foo$/i){
    print $q->redirect("http://hiddenURL");
}
else{
print $q->header("text/html");
}