opendir (my $DIR, $dir) || die "Unable to open $dir: $!";