безопасное создание дерева каталогов

my $file = "aa/bb/cc/dd.txt";
$` ne "" && mkdir $` while ($file =~ m#/#g);
open F,"> $file";

некий аналог mkdir -p