open $fh, '>', 'somefile.html' or die "Can't open HTML file - $!";
#... do things here to generate $somestuff
print $fh $somestuff;

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)