my $data;
$ua->request($request, sub { $data = shift; die }, 2048);