PERL中若文件路径不存在则创建文件路径

#!/user/bin/perl
$abc ="M:\\TDETL\\test";
if (! -d $abc ) {  # ---------路径不存在的话则创建路径-------
   mkdir $abc;
} 
else
{
	print "文件路径已存在";
}
;