You are blocking until you get input from the client. You want your reads to timeout. You'll need to use select() for that. IO::Select comes with Perl and provides an object oriented interface that hides some of the details from you.

-sauoq
"My two cents aren't worth a dime.";