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