[解決済み] Perlでmkdirを使用してフォルダを作成するには？

質問

特定のパスにフォルダを作成したい。 mkdir .

解決方法は？

想定されること D:/Test/Data が存在する。

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);