use File::Path qw(make_path);
make_path($dir);

##</code><code>##

use File::Path;
File::Path::make_path($dir);