use strict;
use warnings;

use Test::More tests => 1;
use Parallel::ForkManager;

my $data;

my $inner = Parallel::ForkManager->new(1);
$inner->run_on_finish(sub{ $data = $_[5]; });

my $outer = Parallel::ForkManager->new(1);
$outer->run_on_finish(sub{ $data = $_[5]; });

unless( $outer->start ) {
    unless( $inner->start ) {
        $inner->finish( 0, [ 'yay' ] );
    }
    $inner->wait_all_children;

    $outer->finish(0, $data );
}

$outer->wait_all_children;

ok $data, "received reference";