$title

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