destroy widget

[Irfan Sayed]

hi,

i have following code to get the user input :

$mw1 = MainWindow->new;
   $mw1->geometry( "200x100" );
   $mw1->title("Client Workspace");
   $mw1->Label(
           -text => "Enter the Perforce client name:"
       )->pack(-anchor=>'center');
       
   $mw1->Entry(
        -textvariable => \$text_clnt
    )->pack(-anchor=>'center');
    
 $mw1->Button(
            -text => "OK",
            -command =>
                 sub 
                 {
                 $t->insert("end","You entered: $text_clnt \n");
                 }        
  )->pack(-anchor=>'center');
  
in this code, we are getting value in $text_clnt. however, once i get this 
value , i need to destroy the widget (entire window)
i tried destroying the widget, but then in that case, i am not getting value in 
$text_clnt variable 


please suggest 


regards
irfan