print join ' ', win32perlProcPids(), "\n";

sub win32perlProcPids {
    my @tasks = `tasklist /FI "IMAGENAME eq perl.exe" /NH /FO CSV`;
    my @pids;
    foreach my $task (@tasks) {
        my @list = split /,/, $task;
        s/"//g for @list;
        push @pids, $list[1];
    }
    return @pids;
}