opendir(DIR, $somedir) || die "Could not open $somedir - $!\n";