You could use File::Path to create the directories so you don't have to shell out.

use File::Path qw(make_path remove_tree);

      make_path('foo/bar/baz', '/zug/zwang');
[download]