Select Code to Download

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

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

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";

my $htmlheader = "Content-type: text/html\n\n";
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";;

my $htmlheader = "Content-type: text/html\n\n";
open my $fh_read, '<', $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";

my $shipcountry;
# shipcountry may contain letters, digits, underscores, spaces and das
+hes
...
}
print {$fh_write} "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT
+'}\|$FORM{'discnt'}\|$shipcountry\|\n"
  or "$htmlheader Can't write to $reffile(r): $!\n";