my $input = $mw->Entry (-text => "",)->form;
$input->focus;
$input->bind('<Return>', \&enter);

##</code><code>##

sub enter{
   ......
   .....
  $input->delete(0,'end');
}