use File::Path qw( mkpath );
mkpath( $path, 0, 0777 );