Select Code to Download

for my $machine ( @machines ) {
    open my $out, '>', "$machine.dat" or die $!;
...
    }
    close $out;
}

for my $machine ( @machines ) {
    async {
...
        close $out;
    }->detach;
}

my $running :shared = 0;             ## This tracks the number of conc
+urrent threads
for my $machine ( @machines ) {
...
}

sleep 1 while $running;     ## Make sure the main threads waits for th
+e last few threads to finish