my $filename = time();

my $doc = '';
open (MYOUT, ">/mypath/$filename.html") or die $!;
$doc .= "<p>Mydata....</p>";
$doc .= "<p>Myotherdata....</p>";
print $doc;                 # This goes to the web browser
print MYOUT $doc;           # This goes to a files
close (MYOUT);