use LWP::Simple;
use Parallel::ForkManager;

@links=(
   ["http://feeds.feedburner.com/Evolution101.xml","evo.xml"],
   ["http://feeds.wnyc.org/radiolab.xml","rl.xml"],
);

my $pm = new Parallel::ForkManager(30);

foreach my $linkarray (@links) {
    $pm->start and next;

    my ($link, $fn) = @$linkarray;
    if (getstore($link,$fn) != RC_OK) {
        warn "Cannot get $fn from $link"
    }
    $pm->finish;
}
$pm->wait_all_children;