$request = HTTP::Request->new('GET', 'http://...');
$response = $ua->request($request, \&callback);
sub callback {
   my ($data, $response, $protocol) = @_;
   ...
}