use AnyEvent;
use AnyEvent::HTTP;

my $cv = AnyEvent->condvar;

http_post "http://127.0.0.1:3333/test", "99", persistent=>1, sub {
	my ($data, $headers) = @_;
	print "Got back message '$data' from server\n";
	$cv->send; # stop waiting
};

$cv->recv; # Wait for response