splice local value thread.pl
Merge branch 'master' of github.com:Andryu/perl_thread
first merge