opendir DIR, $dir or die $!;