P:\bin>perl threads_test.cgi
Created A at HASH(0x225800)
thread start
Destroy A=HASH(0x1e07d9c)
thread start
Destroy A=HASH(0x1dbba9c)
Destroy A=HASH(0x225800)