#!/usr/bin/perl -w

use CGI qw(:standard :netscape);
use CGI::Carp qw(fatalsToBrowser); # Makes die work acceptably! Very important!!

print header,
      start_html,
      start_form,
      p("Click on your favorite color link below!"),
      a({-href => "./blue.cgi"}, font({-color => blue}, "Blue People")),
      br,
      a({-href => "./yellow.cgi"}, font({-color => yellow}, "Yellow People")),
      br,
      a({-href => "./green.cgi"}, font({-color => green}, "Green People")),
      end_form;

print end_html;
#########################  Blue.cgi below this line  #######################

#!/usr/bin/perl -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser); # Makes die work acceptably! Very important!!

print header,
      start_html,
      start_form,
      p("Enter your favorite number"),
      textfield(-name => 'Number', -size => 4),
      submit("Submit number"),
      end_form;


if (param('Number'))
{
    ($favorite) = param('Number');
    print p("Your favorite number is ", strong($favorite));
} 

print end_html;
##########################  Yellow.cgi below this line  #####################

#!/usr/bin/perl -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser); # Makes die work acceptably! Very important!!

print header,
      start_html,
      start_form,
      p("Enter your favorite flavor"),
      radio_group(-name  => "flavor",
                  -value => ['salty', 'sweet', 'bitter', 'sour', 'spicy']),
      submit("Submit flavor"),
      end_form;


if (param('flavor'))
{
    ($favorite) = param('flavor');
    print p("Your favorite flavor is ", strong($favorite));
} 

print end_html;
############################  Green.cgi below this line  #####################

#!/usr/bin/perl -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser); # Makes die work acceptably! Very important!!

print header,
      start_html,
      start_form,
      p("Enter your favorite asset"),
      radio_group(-name  => "asset",
                  -value => ['money','house','power','beauty','sports car']),
      submit("Submit flavor"),
      end_form;


if (param('asset'))
{
    ($favorite) = param('asset');
    print p("Your favorite asset is ", strong($favorite));
} 

print end_html;