[GrOgy]

Ничего лучше не удалось придумать при таком использовании количество входящего и исходящего трафика одинаковое.

my $res = $ua->request($req, \&reqsub, 1);

sub reqsub
{
die();
}