#!/usr/local/bin/perl -w
 
use CGI ':standard';

print header;
print start_html('A Simple Example'),
    h1('Paper input'),
    start_form(-method=>'get',
               -action=>'http://vole/~meng/paper_database/cgi_bin/input.cgi'),  
    "Title :",
    p,
    textfield('title', '', 60, 200),
    p,
    "Author: ",
    p,
    textfield('author', '', 60, 80),
    p,
    "Journal: ",textfield('journal', '', 80, 200),
    p,
    "Which year was it published?",
    p,
    radio_group(-name=>'year',
                   -values=>['1997','1996','1995','1994', '1993', 
                            '1992', '1991', '1990', 'Before 1990'],
                   -defaults=>['1997']),
    p,
    "Where is the paper's location?",
    p,
    popup_menu(-name=>'location',
               -values=>['unknown',
                         'david',
                         'jack',
                         'roberto',
                         'joe',
                         'Dr. Zhang']),
    p,
    "keyword: ",
    popup_menu(-name=>'keyword',
               -values=>['tolerance analysis and synthesis',
                         'statistical tolerance',
                         'geometric tolerance',
                         'CMM', 'CMM algorithm', 'metrology',
                         'functional tolerancing',
                         'mathematization']),

    p,
    "Abstract: ",
    br,
    textarea('abstract', '', 10, 50),
    p,
    submit,
    reset,
    end_form,
    hr;

print a({href=>'mailto:meng@eng.fsu.edu'},'please sent me your comments');
print end_html;