sub doMyThing
{
    my ($changeNumber, @otherParameters) = @_;
       :
       :
    print $q->start_form(
        -name    => 'main_form2',
        -method  => 'GET',
        -action  => "http://xxx.com/cgi-bin/perforce?Submit=describe\&changenum=$changeNumber",
        -target  => '_blank',
    );
       :
       :
    return;
}