my $timer_start = $mw->after(1000 => \&yoursub); 
$mw->afterCancel($timer_start);