#!/usr/bin/perl
use strict;
use CGI;

my $q = new CGI;
$doc = $q->start_html('hello world');
$doc .= $q->h1('hello world');
$doc .= $q->end_html;

open(OUT, '>out.html') || die "Couldn't open out file: $!";
print OUT $doc;
close OUT;

print $q->header();
print $doc;