#!/usr/bin/perl

  use threads;
  use threads::shared;

  $|=1;
  
  my ($global) : shared ;
  
  my $thr1 = threads->new(\&TEST,1) ;
  my $thr2 = threads->new(\&TEST,2) ;  

  my @ReturnData = $thr1->join ;
  print "Thread 1 returned: @ReturnData\n" ;

  my @ReturnData = $thr2->join ;
  print "Thread 2 returned: @ReturnData\n" ;
  
sub TEST {
  my ( $id ) = @_ ;
  
  for(0..10) {
    $global++ ;
    print "id: $id >> $_ >> GLB: $global\n" ;
    sleep(1) ;
  }

  return( $id ) ;
}