Select Code to Download

for ($x=0; $x < scalar(@files); $x++ ) {
    $file=@files[$x];
...
        die "fork failed.";
    }
}