use Symbol qw( gensym );
my ($to_child, $fr_child, $fr_child_err) = map gensym, 1..3;