use File::Path qw(make_path remove_tree);

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