use AnyEvent;

# Used for Main Loop
my $main = AnyEvent->condvar;

# call callback every 5 seconds - first time starts immediately
my $t = AnyEvent->timer( interval => 5, cb => sub {
    print scalar localtime, "\n";
});

# Enter Main Loop
$main->recv;