my $timer = Timer->new(
   callback => sub {
      my ($timer) = @_;
      ...
      if (...) {
         $timer->cancel;
      }
      ...
   },
   period => 5,
)