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