in reply to call subroutine if scalar is changed
{ my $previous_name = $name; $mw->repeat(200, sub { if ($name ne $previous_name) { warn "$previous_name -> $name"; } $previous_name = $name; }); } [download]