Thank you!
A little correction to your code:

my $res = $ua->request($request), sub {...}

Should be:

my $res = $ua->request($req, sub {...});

Thank you once more! ;-)