use File::Path;

    mkpath('Verzeichnis/teilA', 0, 0755);