use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();

print $cgi->header(),
      $cgi->start_html(),
      $cgi->start_form({
        -action => "http://example.com/favourites.html",
        -method => "get",
});
print $cgi->p('What is your favourite colour?
              <input type="text" name="colour" /><br/>
              What is your favourite food?
              <input type="text" name="food" /><br/>
              <input type="submit" '),
              $cgi->end_form,
              $cgi->end_html();