#! /usr/bin/perl

use strict;
use warnings;
use CGI;

my $q = CGI->new;
my $name = $q->param('name') || 'mystery user';
print 
	$q->header,
	$q->start_html('Hello'),
	$q->h1('Hello'),
	$q->p("Hello $name."),
	$q->end_html;

##</code><code>##

http://localhost/cgi-bin/hello.cgi?name=Deanimal