#!/usr/local/bin/perl

use CGI qw/:standard/;

print header,
    start_html('CGI Functions Example'),
    h1('CGI Functions Example'),
    start_form,
    "Please enter your name: ",
    textfield('text'),
    p,
    submit, reset,
    end_form,
    hr;

if (param()) {

   print "Your name is: ", em(param('text')), hr;

}

print end_html;