my @a = readdir(FH);
die $! if !@a and $!;