#!/usr/bin/perl

use File::Path qw(make_path);

my $path1 = 'foo';
my $path2 = 'foo';

make_path($path1, { mode => 0775});
make_path($path1, $path2, { mode => 0775});

make_path('apath3', { mode => 0775});
make_path('apath4' 'apath5', { mode => 0775});