More simply:

open FH, $fifo or die $!;
while (select($ready = fileno(FH), undef, undef, undef)) {
    # do stuff...
}
[download]