Try initializing my $client = pack('L', 0); as you did in the code that worked.
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon
Comment on Re^6: Win32::API - How to call an Imported function with Win32::API::Types ?