#!/usr/local/bin/perl -w
# program about ice in web

use strict;
use CGI qw(:standard);

print header;
print start_html("HI, world "), h1("What's this? ");
if ( param() )  {
  my $who = param("name");
  my $who1 = param("surname");
  print p("Ok, $who $who1. I'm glad to see you in this please !");
} else  {
    print hr();
    print start_form();
    print p("What's your surname? ",textfield("surname"));
#    print p("What's your name? ",textfield("name")); 
    print end_form(), hr();
  }
    print  p("Bye - Bye");
print end_html;