How to create a folder using mkdir in Perl?

Question

I want to create a folder in a particular path using mkdir.

Answer 1

Assuming D:/Test/Data exists

my $dir_qfn = 'D:/Test/Data/foo';
mkdir($dir_qfn)
   or $!{EEXIST}   # Don't die if $dir_qfn exists.
   or die("Can't create directory \"$dir_qfn\": $!\n");

If if might not,

use File::Path qw( make_path );

my $dir_qfn = 'D:/Test/Data/foo';
make_path($dir_qfn);