|
Here's an example how to use CGI.pm to process form data:
|
|
print header(-type=>'text/html'); # MIME header
|
print start_html( # first few lines of HTML
-
-title=>'Pizza Order Form',
-
-BGCOLOR=>'#ffffff'
-
);
|
|
print h1( 'Pizza Order' );
|
|
print h3( "$TOPPING pizza" ); # $TOPPING = param(topping);
|
|
print p( "Deliver to: <B>$ADDR</B>" ); # $ADDR = param(address);
|
|
print p( "Telephone: <B>$PHONE</B>" ); # $PHONE = param(phone);
|
|
my $date = `date`; chomp($date);
|
|
print p( "Order came in at $date" );
|
|
print hr();
|
|
# Print a link:
|
|
print 'Return to ';
|
|
print a({href=>"fill-out-form.pl"}, # an anonymous hash
|
|
print end_html(); # last few lines of HTML
|
