#!/usr/bin/perl
$dir = "/var/spool/news/htdocs/tlcplus/";
@db[0]="tlc_fwom.db";
@db[1]="men_men.db";
@db[2]="tlc_fmen.db";
@db[3]="wom_wom.db";
foreach $pair (@db){
	open(F,@db[$time]);
	while(<F>)
	{
		@names = split(/:/);
		$name=@names[$#name];
#		print $name;
		$user{$name} += 1;
	}
	close(F);
}
open(F,">place.db");
print F "ALL\n";
for $name (sort keys %user){
	print F $name;
}
close(F);
