#!perl

use strict; # this is a MUST!
use CGI; # so you don't parse it by hand

my $query = CGI->new(); # my is because of strict pragma

print $query->header(); # so you don't do it by hand

print "Hello World!";

##</code><code>##

my $form = $query->Vars();

##</code><code>##

print $form->{name};

##</code><code>##

use CGI::Carp qw(fatalsToBrowser);
....
....
if($error) { die "Error message"; }