Tr(
        td("File: "),
        td(
            filefield(
                -name      => 'upload',
                -size      => 50,
                -maxlength => 80
            ),
        ),
    ),
        Tr(
        td("File: "),
        td(
            filefield(
                -name      => 'upload2',
                -size      => 50,
                -maxlength => 80
            ),
        ),
    ),

##</code><code>##

sub upload_field
{
    my $name = shift;
    
    return
    Tr(
        td("File: "),
        td(
            filefield(
                -name      => $name,
                -size      => 50,
                -maxlength => 80
            ),
        ),
    );
}

##</code><code>##

print start_form(
    -method  => 'post',
    -enctype => 'multipart/form-data',
    -action=> ''
  ),
  table( 
    ( map { upload_field( "upload$_" ) } ( '', 1 .. 3 ) ),
    Tr( td(), td( submit( 'button', 'submit' ), ) )
  ),
  end_form(), hr;