Help for this page

Select Code to Download

Select or download this

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