fork_call problem with ipc [fix'd]

fork_call.pl

#!/usr/bin/env perl

use common::sense;
use LWP::Simple;
use AnyEvent::Util;
use HTML::LinkExtor;
use Data::Printer colored => 1;

sub extract_links {
    my @ret = ();
    my $parser = new HTML::LinkExtor(
        sub {
            my ($tag, %links) = @_;
            return if $tag ne 'a';
            my ($url) = values %links;
            push @ret, $url;
        }
    );
    $parser->parse(get($_[0]));

    return \@ret;
}

my $urls = [
    qw(
        http://terra.com.br/
        http://g1.com.br/
        http://r7.com.br/
        http://uol.com.br/
    )
];

my @pool = ();

my $cv = AnyEvent->condvar;
for my $url (@{$urls}) {
    $cv->begin;
    fork_call {
        my $links = extract_links($url);
        return $links;
    }
    sub {
        push @pool, @{$_[0]};
        $cv->end;
    };
}
$cv->wait;

say 'POOL: ' . p(@pool);