print start_form( -method => 'post', -enctype => 'multipart/form-data', -action=> '' ), table({-border=>1, -width=>600, -bgcolor=>'\#eeeeee', cellpadding=>0, cellspacing=>0}, Tr( td("File: "), td( textfield( -name => 'title1', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc1', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload1', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title2', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc2', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload2', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title3', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc3', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload3', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title4', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc4', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload4', -size => 50, -maxlength => 80 ), ), ), Tr( td(), td( submit( 'button', 'submit' ), ) ) ), end_form(), hr;