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