#!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!";