my $g = "$siddir/log/$ip_address_log";
  if (!open(SIDF, ">$g")) { errexit("Unable create customer session"); }
  flock(SIDF, $LOCK_EX) if $LOCK_EX;
  print SIDF "\n$accid\n";
  
  close(SIDF);
	


     exit;