#! /usr/bin/perl use strict; use CGI qw(:standard); my $option = param("type"); if($option eq "newQuery"){ redirect($hostURL .'/cgi-bin/I/relationIQuery.pl?type=list'); } elsif($option eq "similarExtractI"){ # some HTML file is generated }