perl 在指定目录下创建一个文件

perl 在指定目录下创建一个文件
比如
my $file="/a/1.txt";
但是a目录并不存在。
环境是linux.

perldoc File::Path
看mkpath

一次产生上层目录。