#! perl -slw
use strict;
use threads;
use IO::String;
## Point A

my $var;
my $io = IO::String->new($var);
## Point B

my @th= map{ threads->new(\&Update); } 1..5;

$_->join() for @th;

sub Update{};
__END__
P:\test>368516
Attempt to free unreferenced scalar: SV 0x1aba0c4 during global destruction.
Attempt to free unreferenced scalar: SV 0x1a4e06c during global destruction.
Attempt to free unreferenced scalar: SV 0x19e1fdc during global destruction.
Attempt to free unreferenced scalar: SV 0x19749fc during global destruction.
Attempt to free unreferenced scalar: SV 0x2b26134 during global destruction.