Select Code to Download

foreach my $thr (threads->list) {
    # Don't join the main thread or ourselves
...
         $thr->join;
            }
        }

    my $GetProcessMemoryInfo = Win32::API->new('psapi','GetProcessMemo
+ryInfo', ['I', 'P', 'I'], 'I') or return $^E;