use AnyEventHTTPGetNTLM;
use Data::Dumper qw(Dumper);

my $async = new AnyEventHTTPGetNTLM({
	'domain' => 'myDomain',
	'user' => 'fred',
	'pass' => 'secret',
	'url' => 'http://example.com:999/getsomething',
	'timeout' => 10,
	'cb' => sub {
		my ($data,$headers) = @_;
		print Dumper $headers;
		print Dumper $data;
	},
});

$async->{'cv'}->recv;