#!/usr/bin/perl -w

use CGI qw(:standard);

print header(), start_html("Email Signup");


print h1("Mailing List Signup");
print p("Please fill out this form and you will be notified via
email about updates and future product announcements");

print start_form(); 
print p("Name: ",textfield('name')),br,
      p("Email: ", textfield('email')), hr, 

# Submit creates a button!!
      p, submit(-name => 'Submit User Data'),
      end_form, end_html;