$dbh->rmdir_all() を $dir->rm() に改名。