#!/usr/bin/perl -T
use warnings;
use strict;
use CGI qw(:standard);
my $_name = param('name') || '';
my ($name) = $_name =~ /([[:alnum:][:space:][:punct:]]+)/;
$name ||= 'Anonymous Monk';
print
header,
<<"END_HTML";
Greeting Page
Hello, $name
END_HTML