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);
17sleep 2;
18print "Joining with $t\n";
19@results = $t->join();
20print "Joining returned @results\n";
21