my $htmlheader = "Content-type: text/html\n\n";
open REFFILE, '<', $reffile
or print "$htmlheader Can't Open $reffile(r): $!\n";
my(@LINES)=;
close REFFILE
or print "$htmlheader Can't close filehandle for $reffile(r): $!\n";
$SIZE=@LINES;
open REFFILE, '>', $reffile
or print "$htmlheader Can't Open $reffile(r): $!\n";
print REFFILE "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT'}\|$FORM{'discnt'}\|$FORM{'shipcountry'}\|\n"
or "$htmlheader Can't write to $reffile(r): $!\n";;