use Every ':threads';

my $process = Every->time( ms => 1000, call => \&do_stuff, args => [] );
$process->start(); #now do_stuff() will get called ever 1000 ms.

# .. later...
$process->stop();