opendir DIR, $dir || die $!;