#!c:/perl/bin

use CGI ':standard';

print header();
print "Form Elements", br(), br(), br();

print start_form;

print "A Text Box:       ", textfield('surname', 'Default', 50), br();  
print "A Select Box:        ", popup_menu('SelectBox', ['Perl', 'Web', 'Development'], 'Fast');  
print p, "Text Area:      ", textarea('comments', 'Default Text', 10, 50);
print p, "CheckBoxes: ", checkbox_group('check1', ['one', 'two', 'three']);
print p, "Radio Buttons: ", radio_group('radio1', ['a', 'b', 'c']);
print p, submit();

print end_form;

if (param()) 
{
    print "The surname you entered was: ",em(param('surname')),
       p, "The Selections are: ",em(join(", ",param('SelectBox'))),
       p, "The comments box contains: ",em(param('comments')), 
       p, "you selected checkbox: ",em(param('check1')), 
       p, "you selected radio: ",em(param('radio1'));
}