Select Code to Download

#!perl

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

print "Hello World!";

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

print $form->{name};

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