...when i run your code i get

Uncaught exception from user code:
Global symbol "$initdone" requires explicit package name at ./811053.p
+l line 21.
Global symbol "$mw" requires explicit package name at ./811053.pl line
+ 22.
Global symbol "$mw" requires explicit package name at ./811053.pl line
+ 22.
Global symbol "$mw" requires explicit package name at ./811053.pl line
+ 24.
Global symbol "$mw" requires explicit package name at ./811053.pl line
+ 27.
Global symbol "$frameprogress" requires explicit package name at ./811
+053.pl line 33.
Global symbol "$percents" requires explicit package name at ./811053.p
+l line 35.
Global symbol "$percent" requires explicit package name at ./811053.pl
+ line 36.
Global symbol "$progressbar" requires explicit package name at ./81105
+3.pl line 37.
Global symbol "$frameprogress" requires explicit package name at ./811
+053.pl line 38.
Global symbol "$progwhat" requires explicit package name at ./811053.p
+l line 40.
Global symbol "$progwhat" requires explicit package name at ./811053.p
+l line 42.
Global symbol "$progwhatlab" requires explicit package name at ./81105
+3.pl line 43.
Global symbol "$progwhat" requires explicit package name at ./811053.p
+l line 44.
Global symbol "$frameprogress" requires explicit package name at ./811
+053.pl line 44.
Missing right curly or square bracket at ./811053.pl line 68, at end o
+f line
./811053.pl has too many errors.
 at ./811053.pl line 68
[download]

.... too many errors to look at it..... always cut and paste running code.... don't type your code in..... and test download it after posting.... to test that it actually runs