I have tried do this:

use strict;
use warnings;
use Data::Dumper;
use threads;

sub include_info
{
    require 'Win32::Process::Info';
}

sub test
{
    print "1";
}

include_info;
my $tid = threads->create(\&test)->join();
[download]

Result: Can't locate Win32::Process::Info in @INC

But use works. Could you explain my mistake?

See require:

require Win32::Process::Info; # without the quotes
[download]

Thank you a lot!

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]

Thank you for help