Hm, das Parameterauslesen in einer SUb gleicht also einer local-Definition der Variablen?
Irgendwie ja auch logisch, da sie mit my () = @_; gemacht wird...
Da wäre ich jetzt nicht drauf gekommen.

Was mich noch beunruhigt ist, dass das print "sv: '$status_var'\n"; nach der Instanzierung von Tk::ProgressBar meckert, dass $status_var undef wäre.
Dabei steht doch oben dass der Wert 0 sein soll.
Es liegt auch kein Typo vor...
Das muss mit der Referenzierung des ProgressBars zusammen hängen.