Select Code to Download

use threads::lite;

...
....

my @Xresults = $Xthread->join;

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

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