use File::Path;
mkpath('/dir1/dir2/dir3/');