You could think about using File::Path rather than mkdir -p which is less than fully portable.

-- 
I knock my pate and fancy wit will come
Knock as I please, there's no one at home
      a pontiff paraphrased
[download]