#!/usr/local/bin/perl

use CGI ':standard';
use strict;

my $name = param('name') || 'Anonymous';

print header(),
    start_html(-title=>'Yo!',-bgcolor=>'white'),
    h1("Hello $name"),
    p(
      "To change your name, enter it into the text field below and press",
      em("change name.")
      ),

    start_form(),
    "Name: ",textfield(-name=>'name',-value=>'Anonymous'),
    submit(-value=>'Change Name'),
    end_form(),
    
    hr(),
    end_html();