##############

###retrieve member list
opendir(MEMBERS, "$free_path");
@memberz = grep !/\.\.?/, readdir MEMBERS;
closedir (MEMBERS);
&memhead;
########

    @members = sort @memberz;

if ($start eq "") { $start = 1; }

for $members (@members) {
if ($members eq "total.dat") { next; }

   $c++; # count all items
    if($c >= $start){ # if $c count is = or greater than where to start
        $d++; # count items that match first test
        unless($d > $show){ # unless $d count is greater than how many to show
#$action = $INPUT{'action'};
#$membername = $INPUT{'name'};
#$username = $INPUT{'username'};
#$cityx = $INPUT{'city'};
#$genderx = $INPUT{'gender'};
#$countryx = $INPUT{'country'};
#$statex = $INPUT{'state'};
#$agex = $INPUT{'age'};
#$start = $INPUT{'start'};
#$show = $INPUT{'show'};
#coollect info
use DB_File;         			# optional; overrides default
tie %cata, "DB_File", "$path/accounts" or die "Can't open FILENAME: $!\n";   

my $acc_data = $cata{$members};
untie(%cata);

($email,$name,$pwd,$size,$creation,$last_log,$size_added,$hf_on,
	$website_name,$website_des,$numdirs,$www_of,$www_name,$www_bgcolor,
	$www_bgimage,$www_text,$www_link,$www_vlink,$onhold,$address,$city,
	$state,$zip,$country,$telephone,$gender,$age,$icq,$education,
	$income,$occupation,$d_o_b,$moderator,$gbook_of,$op_in,$icon_url,
	$file_types,$ftp_per,$session_str,$num_dirs,$num_files,
	$custom_1,$custom_2,$custom_3,$custom_4,$custom_5,$custom_6,$custom_7,
	$custom_8,$custom_9,$custom_10,$marital,$signup_ip,$last_ip,$formmail_of) = split(/\|/,$acc_data);

($month,$day,$year1,$year2) = split (/\,/,$d_o_b);
#end collect info