Select Code to Download

open(STDOUT,">tempfile.html",") or die $!;

use FileHandle;

...


print $fh "blahblahblahblah\n";