add a demo for perl threads usage.