Utiliser la fonction sleep :
#!/usr/bin/perl
use strict;
while(1)
{
print "1 seconde avant la prochaine boucle\n";
sleep(1);
}
Il est aussi possible de faire une pause d'une durée inférieure à la seconde grâce à la fonction select :
select(undef,undef,undef,0.25);
Fera une pause de 250 milli-secondes.
Plus d'informations dans la documentation de Perl :