use File::Path;
mkpath($directory);