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;