Мне нужно знать, как реализовать многопоточность для следующего кода. Мне нужно вызывать этот скрипт каждую секунду, но таймер сна обрабатывает его через 2 секунды. Всего скрипт вызывает сам через каждые 3 секунды. Но мне нужно называть это каждую секунду, кто-нибудь может дать мне решение или указать мне правильное направление.

#!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);
            }
        }

Это просто пример.