#!/usr/bin/env perl
use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;

print header;

warningsToBrowser(1);

print start_html(-"title"=>'A sample form');
print startform(
		-action=>"http://cgi2.cs.rpi.edu/~lallip/cgi-bin/perl/spring10/outputs.cgi",
		-method=>'post'
	       );
print textfield(-name=>"MyText", -value=>"This is a text field"), p;

print "Here's some check boxes: ", br;
print  checkbox_group(-name=>'fruits',
		      -values=>['Apples','Oranges'],
		      -default=>['Apples'],
		      -labels=>{'Apples'=>"Like Apples?", 
				'Oranges'=>"Like Oranges?"});

print p, "Here's some Radio buttons: ", br;
print radio_group(-name=>'colors',
		  -values=>['red', 'blue', 'green'],
		  -default=>'blue',
		  -labels=>{'red'=>"Vote Red!",
			    'blue'=>"Vote Blue!",
			    'green'=>"Vote Green!"});

print p, "This is a password field: ", password_field(-name=>"Secret"), p;

print "Here's a hidden field: ";
print hidden(-name=>'blank', -default=>['Nothing to see here']);
print "(Didn't see anything?  That's because it's ".b("hidden").")", p;

print "Here's a big text area: ";
print textarea(-name=>'bigtext',
	       -rows=>4,
	       -cols=>50,
	       -default=>'Yup, this is some text');

print p, "Now a drop down box: ";
print popup_menu(-name=>'transportation',
		 -multiple => 'true',
		 -values=>["Cars", "Boats", "Trains"]);

print p, "And now two buttons: ";
print submit(-name=>'Submit', -value=>"Click to submit!"), reset('Click to erase');

print endform, end_html;