RosettaCodeData/Task/Make-directory-path/Perl/make-directory-path.pl

use File::Path qw(make_path);

make_path('path/to/dir')