use threads;

$Param3 = "foo";
threads->new(\&sub1, "Param 1", "Param 2", $Param3)->detach;
threads->new(\&sub1, @ParamList)->detach;
threads->new(\&sub1, qw(Param1 Param2 Param3))->detach;

sub sub1 {
   my @InboundParameters = @_;
   print "In the thread\n";
   print "got parameters >", join("<>", @InboundParameters), "<\n";
}

## wait long enough to ensure that the threads
## will have completed before we let the main thread
## and the process die.
sleep 10;

__END__
C:\test>junk2
In the thread
got parameters >Param 1<>Param 2<>foo<
In the thread
got parameters ><
In the thread
got parameters >Param1<>Param2<>Param3<