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


##</code><code>##

use FileHandle;

my $fh=new FileHandle;
if ($use_a_file) {
   $fh=open(">tempfile.html","w") or die !:
} else {
    $fh->fdopen(STDOUT,"w");
}


print $fh "blahblahblahblah\n";