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