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