Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
     $stmp = join ' ', @params;
     print "[sub1] thread $$  params: $stmp \n"; 
 }