#!/usr/bin/env perl
use 5.032;
use Mojo;
use Mojo::IOLoop;
use Mojo::Log;

my $log = Mojo::Log->new;

my $interval = 0.25;

my $ctr = 1;
sub callback {
  my $loop = shift;
  $log->debug( qq{: Timer, counter } . $ctr++ );
  $loop->timer( $interval => \&callback ) if $ctr <= 5;
}

Mojo::IOLoop->timer( $interval => \&callback );

Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

exit 0;

__END__