Select Code to Download

$mw->waitVisibility;                                  
$mw->after(100,sub{$entries{3}{'entry'}->focusForce});

#!/usr/bin/perl
use strict;
...
  $widget->update();

}