#!/usr/local/bin/perl -w
use strict;
use CGI;

my $q = new CGI;
print  $q->header(-type=>'text/html'),
       $q->start_html(-title=>'CGI.pm is Great'),
       $q->h1('CGI is GREAT'),
       $q->hr,
       $q->end_html;