open FH, "> somefilename" or die $!;
print FH <<HTMLCODE;
ZXCZXC
zxcZXCzx
zxczxczxc
zxczxczxzx
HTMLCODE
close FH or die $!;

##</code><code>##

open STDOUT, "> thefilepath" or die $!;