How can I tell Perl to run some code every 20 seconds?

Question

How can I tell Perl to run some code every 20 seconds?

Answer 1

See Schedule::ByClock:

#!/usr/bin/perl

use strict; use warnings;
use Schedule::ByClock;

my $scheduler = Schedule::ByClock->new(0, 20, 40);

while ( defined( my $r = $scheduler->get_control_on_second ) ) {
    printf "%02d\n", $r;
}

All the caveats others pointed out still apply, but I think the module is neat.