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