use warnings;

 use strict;

 use threads;

 sub TEST{

     print "Hello, World!\n";

     return (qw/    'a'/);

 }

 #返回列表方法1

 my ($t1) = threads->new('TEST');

 print $t1->join, "\n";

 #返回列表方法2

 #

 my $t2 = threads->new({'context' => 'list'}, 'TEST');

 print $t2->join, "\n";

 #返回单个值

 my $t3 = threads->new('TEST');

 print $t3->join, "\n";

 getc();

 #eg.

 my @values = &test;

 #如果函数调用中返回列表， 如你用一个$value获得返回值， 应会得到列表的最后一个元素的值

 #eg.

 my $value = (,,, 'a');

 print $value;

 #result:'a'

 #注意， 这跟my $value = 1,2,3,4, 'a';不同

 #