opendir my $dirHandle, $dirpath
   or die qq{opendir: $dirpath: $!\n};