Select Code to Download

#!/usr/local/bin/perl -w

...
        print $text->get() . "-$i\n";
    }
}

C:\work\BulkFirmwareUpgrade\v1>perl fd.pl
Attempt to free non-existent shared string '_TK_RESULT_', Perl interpr
+eter: 0x2c
...
 at C:/Perl/site/lib/Tk/Widget.pm line 98 during global destruction.
Free to wrong pool 2ceec98 not 225ba0 at C:/Perl/site/lib/Tk/Widget.pm
+ line 98 d
uring global destruction.