sub AreThereFiles {
	opendir DIR, "/path/to/nowhere" or die "That will linger: $!\n";
	while (my $foo = readir DIR ) {
		chomp $foo;
		next if ( $foo =~ m/^\.\.?$/ );
		next unless (-f $foo);
		closedir DIR;
		return 1;
	}
	closedir DIR;
	return 0;
}