use AnyEvent;
use AnyEvent::HTTPD;
my $httpd = AnyEvent::HTTPD->new (port => 9090);

my $cv = AnyEvent->condvar;
$httpd->reg_cb (
   '/doBigThing' => sub {
      my ($httpd, $req) = @_;
       $req->respond ({ content => ['text/html',"OK starting big database thingy now... I will be busy for several minutes.... " ]});
	  $cv->send;
   }
);

while (1)
{
	$cv->recv;
	print "Doing big fancy database stuff for a long time here...";
	
	$cv = AnyEvent->condvar;
}