C:\pwe>perl -V
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
  Platform:
    osname=MSWin32, osvers=5.2, archname=MSWin32-x64-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, 

##</code><code>##

Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS
                        PERL_MALLOC_WRAP PL_OP_SLAB_ALLOC USE_64_BIT_INT
                        USE_ITHREADS USE_LARGE_FILES USE_PERLIO
                        USE_SITECUSTOMIZE

##</code><code>##

foreach my $seq (0..$number-1)
{
  my $doneflag = \$play_done[$seq];
  $$doneflag = 0;
  $play_list[$seq] = threads->create(\&PlayoutThread,
                                      $doneflag,
                                      $target_list[$seq],
                                      $media_type,
                                      $portnum,
                                      $playouts);
  # Mark as already done if thread creation failed
  unless ($play_list[$seq])
  {
    $$doneflag = 2;
    $play_errors++;
  }
  # Count it if thread creation succeeded
  else
  {
    $started++;
  }
}