in reply to network suspend again!

Curious - the code you posted works fine for me on RH7.1, Perl 5.6.1. You might want to try tcpdumping the connection to see if anythink funky is going on on the network layer.