my( $fld ) = shift;
opendir( my $dir, $fld ) or die "Couldn't opendir '$fld': $!";