#!/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(-nph=>1),
             $q->start_html('hello world'),
             $q->h1('hello world'),
             $q->end_html;
   close OUT;

##</code><code>##

open (FILE, '/tmp/out.html') || die $!;
while(my $row = <FILE>) { print $row }
close FILE or die $!;