my $minute = 30;
$mw->update;
$mw->after( 1000, sub{ $minute++; } );