sleep

event.pl

#!/usr/bin/env perl

use Mojo::IOLoop;
use feature 'say';

Mojo::IOLoop->timer(5 => sub {
     say "It has been 5 seconds, it is now ".localtime;
} );

say "It is now ".localtime;

Mojo::IOLoop->start;

procedural.pl

#!/usr/bin/env perl

use feature 'say';

say "The time is ".localtime;

sleep 5;

say "It has been 5 seconds, the time is ".localtime;