#!/usr/bin/env perl

use strict;
use warnings;
use AnyEvent;
use feature qw (say);

say q(Let's get schmorped!);

my $amount = 10;

my $quit_program = AnyEvent->condvar;

my $timer        = AnyEvent->timer(
    after => $amount,
    cb    => sub { say qq(Awaiting penance in $amount s!); $quit_program->send }
);

$quit_program->recv;

say q(Now we've been schmorped!);

__END__

karls-mac-mini:playground karl$ ./event.pl
Let's get schmorped!
Awaiting penance in 10 s!
Now we've been schmorped!