earino

my $pm = Parallel::ForkManager->new($PROCESSES);

my @list_of_work      = qw/ BLAH BLAH BLAH /;
my @list_of_endpoints = qw/ YADDA YADDA YADDA /;

for my $unit_of_work (@list_of_work) {
    my $value_retrieved = retrieve_value_from_stuff($unit_of_work);
    my $pid = $pm->start and next;

    for my $endpoint (@list_of_endpoints) {

earino

my $pm = Parallel::ForkManager->new($PROCESSES);

my @list_of_work      = qw/ BLAH BLAH BLAH /;
my @list_of_endpoints = qw/ YADDA YADDA YADDA /;

for my $unit_of_work (@list_of_work) {
    my $pid = $pm->start and next;

    for my $endpoint (@list_of_endpoints) {
        my $value_retrieved = retrieve_value_from_stuff($unit_of_work, $endpoint);

earino

my $pm = Parallel::ForkManager->new($PROCESSES);

my @list_of_work      = qw/ BLAH BLAH BLAH /;
my @list_of_endpoints = qw/ YADDA YADDA YADDA /;

my $cache = CHI->new(
   driver     => 'FastMmap',
   root_dir   => $SOME_DIRECTORY,
   cache_size => $SIZE,
);

earino

<?xml version="1.0" standalone="yes"?>
<site>
<regions>
<africa>
<item id="item0">
<location>United States</location>
<quantity>1</quantity>
<name>duteous nine eighteen </name>
<payment>Creditcard</payment>
<description>

earino

$VAR1 = {
          'people' => {
                      'person' => {
                                  'homepage' => 'http://www.labs.com/~Tempesti',
                                  'creditcard' => '5048 5813 2703 8253',
                                  'name' => 'Jaak Tempesti',
                                  'id' => 'person0',
                                  'watches' => {
                                               'watch' => {
                                                          'open_auction' => 'open_auction0'

earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use XML::Simple;
use Time::HiRes;

earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use XML::Simple;
use Time::HiRes;

earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use XML::LibXML;
use Time::HiRes;

earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use XML::LibXML::Simple qw(XMLin);
use Time::HiRes;

earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use XML::Simple;
use JSON;
use Time::HiRes;