I still favour a blocking read over blocking using select, though - you're using two system calls (which are relatively expensive) to do the job of one (unless there's something I'm missing).

Paraphrasing the Cookbook a little, replacing your loop with

for( ;; ) {
  open FIFO; "<", $fifofile or die $!;
  
  my $buf = <FIFO>; # blocks
  next unless defined $buf;

  chomp $buf;
  print $buf;
 
  close FIFO;
}
[download]

Just as a final point, I'm not 100% sure what you're trying to achieve with your calls to index and substr - all you seem to be doing there is stripping the newline, which you can achieve using chomp.

Hope that helps.

the code i posted is just an example to demonstrate my problem with fifos. i am using select() because sometimes i want to return from waiting for input.

select($rin,undef,undef,$timeout)
i am not using $buf = <FH> because i thought your not supposed to use it when you use select()