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();