THREAD support enabled 
[sub1] thread 18917  params: 0 1 
Attempt to free unreferenced scalar: SV 0x8661170, Perl interpreter: 0x86388b8 during global destruction.

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Config;
use threads;

  my( $th, $thres );
  $th = threads->new( \&sub1, 0, 1 );
  $thres = $th->join;
  
# ============
sub sub1
{
     my @params = @_;
     my ( $stmp );
     $stmp = join ' ', @params;
     print "[sub1] thread $$  params: $stmp \n"; 
 }