my $ progress = $ widget-> ProgressBar ( 
    -Width => 20,  
    -Length => 300,  
    -From => 0,   
    -To => 100,  
    -Colors => [0, "# 0090F0"],  
    -Gap => 0,  
    -Troughcolor =>"# A5A5A5"  
) -> Pack (qw /-side bottom-fill x-expand 0 /)