use CGI;
  $query = new CGI;

  $RmAddr = $ENV{'REMOTE_ADDR'};
  $RmHost = $ENV{'REMOTE_HOST'};
  $tme = time;

  $logging_drive = "d:";
  $website_drive = "h:";

  $booklst = "$website_drive/www_orientation/cgi-shl/orientat.lst";
  if(open(BOOKLST, $booklst) != 1) {
    print "Location: http://www.orientation.org/nodata\.htm\n\n";
    exit(1);
    }
  else {
    $bklst[0] = "";
    $countr1 = -1;
    while(<BOOKLST>){
      $inln = $_;
      if($inln =~ /#/g){
        }
      elsif($inln =~ /\|/g){
        $countr1++;
        $inln =~ s/\|//g;
        chop($inln);
#        ($prt1, $prt2) = split(/\|/,$inln);
#        chop($prt2);
        if($inln eq "END"){ $inln = "";}
        $bklst[$countr1] = $inln;
        }
      else{
        $temp_holder = $temp_holder . $inln;
        }
      }
    close(BOOKLST);
    }

  @tmplst = sort @bklst;
  ($chtr, @bklst) = @tmplst;
  if($chtr ne ""){ @bklst = @tmplst}

  @DandT = localtime($tme);
  $DandT[3]++;
  $DandT[4]++;
  
  $citylist = ""; $countr2 = 0; $unms[0] = "";
  for($countr1=0; $bklst[$countr1] ne ""; $countr1++){
    $nextone = 1;
#    ($smday, $smmon, $smyr) = split(/\-/, "200-200-200");
#    if($smyr  < $DandT[5]){ $nextone = 0;}
#    if(($smyr == $DandT[5]) && ($smmon <  $DandT[4])){ $nextone = 0;}
#    if(($smyr == $DandT[5]) && ($smmon == $DandT[4]) && ($smday < $DandT[3])){ $nextone = 0;}
    if($nextone != 0){
      $countr4 = 0;
      for($countr3=0; $unms[$countr3] ne ""; $countr3++){
        if($bklst[$countr1] eq $unms[$countr3]){
          $countr4 = 1;
          }
        }
      if($countr4 == 0){
        $unms[$countr2++] = $bklst[$countr1];
        $citylist = $citylist . "  <OPTION> $bklst[$countr1]\n";
        }
      }
    }

  ########## Send Html ##########
  $htsnd = "$website_drive/www_orientation/orienad2\.htm";

  if(open(HTSND, $htsnd) != 1) {
    print "Location: http://www.orientation.org/nodata\.htm\n\n";
    exit(1);
    }
  else{
    print "Content-type: text/html\n\n";
    $wsdir = "../";
    while(<HTSND>) {
      $inln = $_;
      $inln =~ s/<!--#City_List#-->/$citylist <!--/gi;
      $inln =~ s/<!--#City_List_End#-->/-->/gi;
      $inln =~ s/SRC="/SRC="$wsdir/gi;
      $inln =~ s/BACKGROUND="/BACKGROUND="$wsdir/gi;
      $inln =~ s/HREF="/HREF="$wsdir/gi;
      print "$inln";
      }
    close(HTSND);
    }
  ########################