in reply to widget box problem in tk

Trying to understand the error would have helped you.

C:\>1085723.pl
Variable "$mw" will not stay shared at 1085723.pl line 42.
Variable "$output_text1" will not stay shared at 1085723.pl line 60.

[download]
and trying to actually execute the file would have added critical information: 
Use of uninitialized value $lname1 in concatenation (.) or string at 1
+085723.pl line 48.
readline() on closed filehandle FH at 1085723.pl line 49.

[download]

Careful study of the "very long error in Command line" will help you; quoting it will help us to help you.


Questions containing the words "doesn't work" (or their moral equivalent) will usually get a downvote from me unless accompanied by:
  1. code
  2. verbatim error and/or warning messages
  3. a coherent explanation of what "doesn't work actually means.

check Ln42!

In Section Seekers of Perl Wisdom