Select Code to Download

use Algorithm::Loops      qw( NestedLoops );
use Parallel::ForkManager qw( );
...
}

$pm->wait_all_children();

my @param_arr;
{
...

   @param_arr = <$fh>;
}