close(REFFILE)
|| print "$htmlheader Can't close filehandle for $reffile(r): $!\n";
[...]
print (REFFILE "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT'}\|$FORM{'discnt'}\|$FORM{'shipcountry'}\|\n")
|| "$htmlheader Can't write to $reffile(r): $!\n";