untie attempted while 1 inner references still exist at C:/Perl/site/lib/Tk/ProgressBar.pm line 306.
Can't call method "pack" on unblessed reference at myscript.pl line 436.