Tell the time using a recurring Mojo::IOLoop timer

mojo-ioloop-time.pl

#!/usr/bin/env perl

use Mojo::IOLoop;
use POSIX;

# Start at sec % 5 == 0
Mojo::IOLoop->timer((5 - (localtime)[0] % 5) => sub {
	# Perform operation every 5 seconds
	Mojo::IOLoop->recurring(5 => sub {
		my $loop = shift;
		print "The time is ".POSIX::strftime("%F %T %Z", localtime())."\n";
	});
});
# Start event loop if necessary
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;