use File::Path;
my $base_dir="/home/jlk/tmp/data/stuff/archive/$clientname";
mkpath(["$base_dir/tmp",
        "$base_dir/not_proc",
        "$base_dir/enc_arch_files/incoming"
       ], 0, 0755);