use File::Path;
mkpath([values %DIR], 0, 0755);