Select Code to Download

    for (@proc) {

    my $cmd = "dir $_:";
    my $pid = open my $fh, "-|", $cmd # ...

    my $pid = open my $fh, "-|", "dir", "$_:" # ...

    my $pid = open my $fh, "dir $_: |" # ...

    kill 15, values %pids;

    kill 15, map {$_->[0]} values %pids;