print table(
           Tr(
              td('First Name:'),
              td(textfield(-name=>"first_name",
                           -maxlength=>25,
                           -size=>12,
                 ),
              ),
              td('Last Name:'),
              td(textfield(-name=>"last_name",
                           -maxlength=>25,
                           -size=>12,
                 ),
              ),
           ),
           Tr(
              td({-colspan=>2},
                 'Address:',
              ),
              td({-colspan=>2},
                 textarea(-name=>"address",        
                          -rows=>10,
                          -columns=>50,
                 ),
              ),
           ),
        );