Select Code to Download

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

#!/usr/bin/perl

...
      # Check the error code of the child process if desired.
   }
}