This Win32::OLE hates Perl's threads too much... Then I'm afraid there's no other option but something like

use strict;
use warnings;
use threads;
use feature 'say';

sub test {
    my $s = 'say $_-> { CommandLine } for Win32::Process::Info-> new->
+ GetProcInfo';
    say qx( $^X -MWin32::Process::Info -E "$s" );
}

threads-> create( \&test )-> join;
[download]