#!C:/Perl/bin/perl

use strict;
use CGI::Pretty qw( -debug );
use CGI::Carp qw( fatalsToBrowser );

my $q = new CGI;

my $pay = $q->param(payment=>"discover","master","check");
my $pay_text;

if ( $pay eq "discover" )  {
  $pay_text = "Discover Card";
}
elsif ( $pay eq "master" )  {
  $pay_text = "Master Card";
}
elsif ( $pay eq "check" )  {
  $pay_text = "by check";
}
else  {
  $pay_text = "unknown method";
}

print $q->header,

      $q->start_html( -title=>"Welcome",
                      -bgcolor=>"pink"),

      $q->p( "Your name is ", 
             $q->strong("name")),

      $q->p({-style=>"text-decortation:underline"},"Your age is ",$q->textfield(-name=>"age")),
                

      $q->p( "Your method of payment is ",
             $q->span({-style=>color=>"blue"},$pay_text)),
      $q->end_html;