Perl, Thread and shared scalar example

This is a simple code that show an example about use thread::shared to share a variable in thread context.