1BEGIN {
2    eval { require Config; import Config };
3    if ($@) {
4	print "1..0 # Skip: no Config\n";
5	exit(0);
6    }
7}
8
9use Thread;
10sub foo {
11    print "In foo with args: @_\n";
12    return (7, 8, 9);
13}
14
15print "Starting thread\n";
16$t = new Thread \&foo, qw(foo bar baz);
17print "Joining with $t\n";
18@results = $t->join();
19print "Joining returned ", scalar(@results), " values: @results\n";
20