my $changenum = $1;
print $q->start_form(
	-name    => 'main_form2',
	-method  => 'POST',
	-action  => 'http://xxx.com/cgi-bin/perforce',
	-target  => '_blank',
);
print $q->hidden(
	-name     => 'Submit',
	-value    => 'describe',
);
print $q->hidden(
	-name     => 'changenum',
	-value    => $changenum,
);
print $q->submit(
	-name     => 'submit_form2',
	-value    => 'See the change',
);
print $q->end_form;