Much easier to use IO::Select. I've got an example of it in a recent Linux Magazine article.

-- Randal L. Schwartz, Perl hacker