use strict;
use threads;
use Win32::Process::Info;

sub test
{
    print "1";
}

threads->create(\&test)->join();