Help for this page

Select Code to Download


  1. or download this
    my $thr = threads->new( sub { return (1,2,3) });
my @a = $thr->join();
print "return is @a\n";
  2. or download this
    my ($thr) = threads->new( sub { return (1,2,3) });
my @a = $thr->join();
print "return is @a\n";