in reply to sysread()

select may help. IO::Select is also nice.

In Section Seekers of Perl Wisdom