opendir my $DIR, $dir_path or die $!;