Das stimmt natürlich. Einfaches Lesen führt unter Umständen zur Blockierung.

Dafür gibt's die "select" Funktion: perldoc -f select

Oder noch hübscher: IO::Select. Da kann man dann can_read abfragen.