input box to dissappear

From: Saadat Saeed (saadat_saeed_at_yahoo.com)
Date: 06/29/04 

Date: 29 Jun 2004 04:55:08 -0700

I would like the input box to disappear after I press enter....... I
know it must be very simple...but how?

#use strict;

use Win32::OLE;
use Win32::ODBC;
use Tk;

my $mw = new MainWindow;
$mw->configure(-title=>"Generate EDI File",-background=>'blue');
$mw->geometry('+100+300');

my $mw_frm1 = $mw->Frame(-relief=>'groove',-borderwidth=>'3',-background=>'blue')->pack(-side=>'top',-fill=>'x');
my $frm1_lbl = $mw_frm1->Label(-text=>'Enter EDI
Number',-background=>'blue',-foreground=>'white')->pack(-side=>'left');
my $frm1_en1 = $mw_frm1->Entry(-width=>20,-background=>'white')->pack(-side=>'left');
my $frm1_bu1 = $mw_frm1->Button(-text =>
"OK",command=>sub{doit($frm1_en1,$mw)})->pack(-side=>'left');
MainLoop();

sub doit {
        my($e) = @_;
        my $entered = $e-> get();
        $entered = trim($entered);
        print "About to start process $entered\n";
        
}

sub trim {
   my($string)=@_;
   for ($string) {
       s/^\s+//;
       s/\s+$//;
   }
   return $string;
}