if ( $q->param('bsubmit') eq 'Next' ) {
    my $template = HTML::Template->new( filename => 'reqinfo.html', associate => $q );
    print $template->output;       
}