Select Code to Download

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

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