Select Code to Download

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

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