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_button2  )->pack;

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