$title

use strict; MAIN: { my $args = {}; open($args->{fh}, ">hdt.html") or die("Unable to open output file!"); my $title = 'MY TTILE'; my $fh = $args->{fh}; print $fh < $title Blah, Blah... EOF close $fh; }