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