my $htmlheader = "Content-type: text/html\n\n";
open (REFFILE, '<', $reffile) || print "$htmlheader Can't Open $reffile(r): $!\n";
[...]
open (REFFILE, '>', $reffile) || print "$htmlheader Can't Open $reffile(r): $!\n";