#!/usr/bin/perl -wT
use strict;
use CGI;

my $cgi = new CGI;
my $_name = $cgi->param('name') || '';
...