If you had  use strict; use warnings: you would have been warned

Variable "$text" will not stay shared at file line 1
[download]

If you had used diagnostics you'd have gotten

(W closure) An inner (nested) named subroutine is referencing a
lexical variable defined in an outer named subroutine.

When the inner subroutine is called, it will see the value of
the outer subroutine's variable as it was before and during the *first
+*
call to the outer subroutine; in this case, after the first call to th
+e
outer subroutine is complete, the inner and outer subroutines will no
longer share a common value for the variable.  In other words, the
variable will no longer be shared.

This problem can usually be solved by making the inner subroutine
anonymous, using the sub {} syntax.  When inner anonymous subs that
reference variables in outer subroutines are created, they
are automatically rebound to the current values of such variables.
[download]

Read Tutorials: Closure on Closures, Lexical scoping like a fox

If you're going to use named subs, use pre-declare any my variables (like $tl and $text ) in the largest possible scope (before any sub definitions) or simply use our globals, and you'll be fine with strict/warnings, and you'll avoid calling methods on destroyed object ( you'll avoid Failed to AUTOLOAD... )

Or , keep what you have, but use anonymous sub/anonymous closure

sub do_top {
    if ( !Exists($tl) ) {
        $tl = $mw->Toplevel;
        $tl->title('Help');
        $tl->geometry("1000x700");

        my $frame = $tl->Frame()->pack;
        my $lab   = $tl->Label()->pack;
        my $ent   = $tl->Entry()->pack;
        
#### ANONYMOUS SUB , ANONYMOUS CLOSURE, 
#### CLOSED OVER LEXICAL $text
#### $text is lexical to if {} block in do_top
        my $text = $tl->Scrolled('Text');
        my $push_button2 = sub {
            $text->insert( 'end', "You pushed button2\n" );
        };
        $tl->Button( -text => 'Exit', -command => sub { $tl->destroy; 
+} )->pack;
        $tl->Button( -text => 'Open File1', -command => $push_button2 
+ )->pack;

        $text->pack();

    } else {
        $tl->deiconify;
        $tl->raise;
    }
}
[download]

Thank you so much .!!!!

Then the code runs fine, with a warning that on subsequent invoking of the reusable toplevel $tl, the Text widget from the last invocation will be gone.

So just add a global my $tl;

The whole idea of the reusable toplevel was to prevent memory gains, and this code may be such a beast. Everytime you run the toplevel, the private Text widget it contained gets stuffed aside into no-man's land, where memory accumulates. The Text widget I included with that toplevel example, is not needed. If you do need a persistent Text widget, for that reusable toplevel, just make my $text; a global variable, rather than just scoped to the toplevel subroutine.

pardon the stupid question, but how do you invoke the grid manager for top level windows, I've been tryin to do it like this:

 my $frame = $tl->Frame()->pack;        
        my $lab   = $tl->Label()->pack;
        my $ent   = $tl->Entry()->pack;
        my $label = $frame -> Label(-text=>"NQR Reports ");

$lab -> grid(-row=>0,-column=>0);
$ent -> grid(-row=>0,-column=>1);
$label -> grid(-row=>0,-column=>0);
$frame -> grid(-row=>2,-column=>1,-columnspan=>2);

my $but1 =  $tl->Button( -text => 'Open File1', -command => $push_butt
+on2  )->pack;

$but1 -> grid(-row=>2,-column=>2,-columnspan=>2);
[download]


The code starts executing but the top level window is never created and the system jus hangs .. Any suggestions ??

As far as I know, you can't mix pack and grid. First you pack() your widgets, then you try to use grid() on them, you can't. See Geometry Management

Here is a simple grid usage:

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Data::Dumper;

my $top = new MainWindow();

#my %items = ( A => [1,1a], B => [2,2a], C => [3,3a] );

my $count = 0;
my %items = ();
for('A'..'Z','a'..'z'){
       $count++;
       $items{$_} = [$count, "$count-a"];
     }

my $row = 0;
foreach my $item ( sort keys(%items) ) {

      #print @{$items{$item}},"\n";

    $top->Label(
            -text   => $item,
            -anchor => "w",
            -relief => 'solid', #will show gridlines
    )->grid( -row => $row, -column => 0 );
            
    $top->Entry(
            -textvariable => \$items{$item}[0],
            -width        => 5,
            -relief => 'solid', #will show gridlines
    )->grid( -row => $row, -column => 1 );
            
        $top->Entry(
            -textvariable => \$items{$item}[1],
            -width        => 5,
            -relief => 'solid', #will show gridlines
    )->grid( -row => $row, -column => 2 );
        

$row++;
}

MainLoop();
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh