open DIR, $dir || die $!;