Help for this page
$mw->after(1000, sub { print "name is $name\n"; ... print "name is $name\n"; }); MainLoop;