Select Code to Download

    use IPC::Open2;

...
    while ( @pids ) {
        waitpid( shift @pids, 0 );
    }

sub fetch_xml_data {
    my ($ids) = @_;
...
    
    $_->join for @threads;
}