use CGI qw(:standard);
use strict;

print header,start_html('CGI Test');

unless (param('go')) {
   print start_form, 
      table(
         Tr(
            td('First Name:'),
            td(textfield('fname')),
         ),
         Tr(
            td('Last Name:'),
            td(textfield('lname')),
         ),
         Tr(
            td('Your age:'),
            td(textfield('age')),
         ),
      ),
      submit('go'), end_form,
   ;
}
else {
   my $fname = param('fname');
   my $lname = param('lname');
   my $age   = param('age');
   print h2('Welcome!'),
      p(qq|We're glad to see you $fname, members of the
         $lname family are always welcome here. It's hard
         to believe that you're already $age years old.
         My how time flies.|),
      end_html
   ;
}