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