open(IN,"</etc/passwd");
while(<IN>) {
	chomp; next unless(/^([^:]+):/);
	$names=`find ~$1/.netscape -name prefs.js -o -name liprefs.js -print`;
	@names=split /\n/, $names;
	push @files, @names;
}