use threads::lite;

my @threads = threads::lite->spawn( 10 );

...

## Then when I know what I want a thread to do
my $Xthread = pop threads;
$Xthread->run( \&doX, @Xargs );

....

my @Xresults = $Xthread->join;

##</code><code>##

use threads::lite;
my $threadFactory = threads::lite->genFactory;

....

my( $Xthread ) = $threadsFactory->create( \&doX, @Xargs );
my( $Ythread ) = $threadsFactory->create( \&doY, @Yargs );