my $userid=getuserid or castigate_user;

##</code><code>##

sub get_userid {
  my $member_dir = "../../Members/";
  my $member_file ="memberslist.cgi";

  return undef unless my %cookies = fetch CGI::Cookie;
  return undef unless $cookies{'UserName'};
  return undef unless $cookies{'Password'};

  my $id = $cookies{'UserName'}->value;
  my $password =  $cookies{'Password'}->value;

  my $exact_file;
  $file = "$member_dir/$member_file";
  open (FH, "< $file") or die "Could not open $file: $!";
  while (<FH>){
    chomp;
    my ($login, $junk_file) = split(/|!!|/);
    if ($login eq $id) {
      $exact_file=$junk_file;
      last;
    }
  }
  close FH;
  return undef unless $exact_file;

  $file ="$member_dir/$exact_file.cgi";
  open (FH, "< $file") or die "Could not open $file";
  my @user_list=(<FH>, <FH>);
  close FH;

  return undef unless $user_list[0] eq $id and
         $user_list[1] eq $password;

  return $id;
}