#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header,
        $q->start_html('hello world'),
        $q->h1('hello world'),
        $q->end_html;

1;