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