Select Code to Download

  use CGI qw/:standard/;
  print header,
...
         "Your favorite color is ",em(param('color')),
         hr;
   }

   #!/usr/local/bin/perl -w
   use CGI;                             # load CGI routines
...
         $q->start_html('hello world'), # start the HTML
         $q->h1('hello world'),         # level 1 header
         $q->end_html;                  # end the HTML

my $query = new CGI;
my $cheese = $query->param('cheese');