set totalup [expr wide($totalup/1024)]
            set per [format %.2f [expr (double($monthup)/$totalup)*100]]