use DB_File;         			# optional; overrides default
tie %who, "DB_File", "$path/whosonline" or die "Can't open FILENAME: $!\n";    	# open database, to be accessed  through %HASH
       		# close the database
$rank = "0";
foreach $mename (keys %who){
if (-d "$free_path/$mename") {
$rank++;
print <<EOF;
<a href="http://www.teen-reality.com/members/$mename">$mename</a><b>*</b>,
EOF
if ($rank eq "15") {
print <<EOF;
<a href="http://www.teen-reality.com/members/$mename">$mename<b>*</b></a> ... <a href="http://www.teen-reality.com">more</>
EOF
last;
}
else { next; }
}
else { next; } 
}
untie %who;