open DIR, $dir or die $!;