use warnings;
use strict;

use Async::Event::Interval;
 
my $event
    = Async::Event::Interval->new(1, \&callback);
 
$event->start;

my $c = 1;

while (1){
    print "$c: in the main process...\n";
    $c++;
    sleep 10;
}

sub callback {
    print "we're alive!\n";
}

##</code><code>##

1: in the main process...
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
we're alive!
2: in the main process...
we're alive!
we're alive!