Select Code to Download

    Tr(
        td("File: "),
        td(
...
            ),
        ),
    ),

sub upload_field
{
    my $name = shift;
...
        ),
    );
}

print start_form(
    -method  => 'post',
    -enctype => 'multipart/form-data',
...
    Tr( td(), td( submit( 'button', 'submit' ), ) )
  ),
  end_form(), hr;