Also, you should read perlintro and use eq to compare strings
In reply to Re^3: Pass a IO::Socket handle to a thread by Anonymous Monk in thread Pass a IO::Socket handle to a thread by bsdmeister