my $dh = opendir($directory) orelse die "Could not open directory '$directory': $!";