opendir(UPLOAD,"$basedir/$name") or mkdir ...