my (@old_ps_dirs, $old_ps_dir);

    @old_ps_dirs = glob ("$SrceDir/TS[0-9]A");
    foreach $old_ps_dir (@old_ps_dirs) {
        if ((-C $old_ps_dir) > 1) {
            run_command ( "rm -rf $old_ps_dir" ); 
        }
    }