Select Code to Download

if(defined $q->param('form_submitted')){
  if(&errors){ #Error occured
...
sub display_form(){
  ##Do form stuff
}

$temp = HTML::Template->new(
                      file => 'file.tmpl',
                      associate => $q
              );