#/bin/perl/

use strict;
use warnings;

use File::Path qw(make_path);

make_path("~/folder1/folder2/folder3/folder4");