#!/perl/bin/perl.exe -wT use CGI; $q = new CGI; $name = $q->param('name'); $comment = $q->param('comment'); if ($name =~ /^Auto$/i){ print $q->redirect("http://somewhere.com/cgi-bin/Auto.cgi"); } else{ print $q->header("text/html"); }