#!/usr/bin/env perl -l

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Strict;

print 'Start at: ', scalar localtime;

my $w_cond = AnyEvent->condvar;

my $w = AnyEvent->timer(
    after => 5,
    cb => sub {
        print 'Callback: ', scalar localtime;
        $w_cond->send;
    }   
);  

$w_cond->recv;