for (@proc) {

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    kill 15, values %pids;

##</code><code>##

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