{   my $previous_name = $name;
    $mw->repeat(200, sub {
        if ($name ne $previous_name) {
            warn "$previous_name -> $name";
        }
        $previous_name = $name;
    });
}