Perl Async Example: Use AnyEvent to run two separate code simultaneously in while (1) condition.

async_example_AnyEvent.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use AnyEvent;

my $count = {
    cache => 0,
    main_loop => 0,
};

my $condvar = AnyEvent->condvar;
my $cache = AnyEvent->timer( # Runs as cache build subroutine in parallel.
                            after => 0, 
                            interval => 1, 
                            cb => sub { 
                                print 'cache: '      . $count->{cache}++     . " \n";
                            }
                      );

my $main_loop = AnyEvent->timer(  # Runs as main while loop in parallel.
                            after => 0, 
                            interval => 5, 
                            cb => sub { 
                                print_test();
                                print 'main_loop : ' . $count->{main_loop}++ . " \n";
                            }
                      );                  

# Runs both loop here.
$condvar->recv;

sub print_test{
    print "test\n";
}