foreach my $thr (threads->list) {
    # Don't join the main thread or ourselves
     if ($thr->tid && !threads::equal($thr, threads->self)) {
         $thr->join;
            }
        }

##</code><code>##

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