Do some more printing, to see where everything goes, at least while you're investigating:

     my $buf = <$client>;
     my $whatitwas = $buf;
     print 'Chomping ', chomp $buf, " chars\n";
     print "It used to be $whatitwas, but now it is $buf\n";
[download]

Have you modified $/ at all?