use File::Path qw(mkpath);
my $path = 'path/to/create';
mkpath($path) unless -e $path;