...

while (my $ref = $sth->fetchrow_hashref) {
    $pua->register( HTTP::Request->new(GET => $ref->{'url_en'}) );
}

my @results = $pua->wait();

for (@results) {
    my $res = $_->response;
    ...
}

...
[download]

Good luck!

++ vs lbh qrpbqrq guvf hfvat n ge va Crey :)
Nabgure bar vs lbh qvq fb jvgubhg ernqvat n znahny svefg.
-- vs lbh hfrq OFQ pnrfne ;)
    - Whreq