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

   my $q = new CGI;
   open(OUT, '>out.html') || die "Couldn't open out file: $!";
   print OUT $q->header,
             $q->start_html('hello world'),
             $q->h1('hello world'),
             $q->end_html;
   close OUT;

END{}
__END__