Necesito saber cómo implementar subprocesos múltiples para el siguiente código. Necesito llamar a este script cada segundo, pero el temporizador de reposo lo procesa después de 2 segundos. En total el script se llama a sí mismo cada 3 segundos. Pero necesito llamarlo cada segundo, ¿alguien puede proporcionarme una solución o indicarme la dirección correcta?

#!usr/bin/perl
use warnings;

sub print
{
local $gg = time;
print "$gg\n";
}

$oldtime = (time + 1);
while(1)
{
if(time > $oldtime)
{
    &print();
    sleep 2;
    $oldtime = (time + 1);
            }
        }

Es solo un ejemplo.