opendir my $dh, $dirpath or die $!;