print "To estimate shipping please enter shipping country to generate information for Fedex calulations then click estimate shipping to open Fedex Estimator :<br> \n";
print "<input name=shipcountry value=$shipcountry>\n";
print "<input type=submit value=\"Show Shipping Info\"><br>\n";

open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(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";