$title

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