use warnings;
use strict;
use feature 'say';

use Async::Event::Interval;

my $delayed_event = Async::Event::Interval->new(5, \&interval_sub);

$delayed_event->start;

while (1) {
    say time;
    sleep 1;
}

sub interval_sub {
    say "Running interval sub";
}

##</code><code>##

1646160956
1646160957
1646160958
1646160959
1646160960
Running interval sub
1646160961
1646160962
1646160963
1646160964
1646160965
Running interval sub
1646160966
1646160967
1646160968
1646160969
1646160970
^C