cgi-dev

notify_signup.cgi (1438B) - raw

---

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 use CGI;
 
 my $form = CGI->new;
 
 print $form->header( "text/html" );
 print $form->start_html( -title => "Register to our Mailing List" );
 print $form->h1( "Mailing List Signup" );
 print $form->p( "Please fill out this form to be notified via email
                  about updates and future product announcements." );
 
 print $form->start_form(
                         method => "register.cgi",
                         action => "POST",
 );
 
 foreach (qw( Name Email )) {
     print $form->p( "$_:", $form->textfield( -name => lc( $_ ) ) );
 }
 
 print $form->p( "Password:", $form->password_field( -name => "password" ) );
 
 print $form->checkbox(
                         -name  => "checkbox",
                         -value => "my_checkbox",
                         -label => "My Checkbox",
 );
 
 print $form->checkbox_group (
                         -name   => "toppings",
                         -values => [ qw( lettuce tomato onions ) ],
                         -labels => { "lettuce" => "Lettuce",
                                      "tomato"  => "Tomato",
                                      "onions"  => "Onions",
                                    },
                         -columns => 1,
 );
 
 print $form->hr;
 
 print $form->submit(
                         -name => "submit",
                         -value => "Submit Now",
 );
 
 print $form->reset;
 
 print $form->end_form;
 print $form->end_html;