Select Code to Download

my $complex_data_structure = {'a'=>[1,2,3], 'b'=>{'c'=>[4,5,6],'d'=>LW
+P::UserAgent->new()}};
my $serialised_data = Sereal::Encoder::encode_sereal($complex_data_str
+ucture);
$pfm->finish(0, \$serialised_data); # <<< note that we pass a referenc
+e to our serialised-data.

my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $data_structur
+e_reference) = @_;
my $data = Sereal::Decoder::decode_sereal($$data_structure_reference);
+ ## de-referencing the ref to the serialised data and then de-seriali
+sing.

#!/usr/bin/env perl

...
$pfm->wait_all_children;

print "Here are the results:\n".dump(%results)."\n";