Select Code to Download

#!/usr/bin/perl
use strict;
...
             $q->h1('hello world'),
             $q->end_html;
   close OUT;

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