use strict;
use warnings;

use AnyEvent::HTTPD;

my $h = AnyEvent::HTTPD->new(port => 8123);;

my $timer;

$h->reg_cb (
	'/test' => sub {
		my ($httpd,$req) = @_;
		
		$req->respond({
			content => ['text/plain', sub {
				my ($data_cb) = @_;
				return unless $data_cb;
				print "Setting timer...\n";
				$timer = AnyEvent->timer(after => 5, cb => sub { 
					print "Sending response...\n";
					$data_cb->("Hello");
					$data_cb->();
					});
				}]
			});
		},
	);

my $c = AnyEvent::condvar;
$c->recv();

##</code><code>##

Setting timer...
Sending response...
Setting timer...
Sending response...