If you want to get through that loop and actually get to any of the code below that reads from the fifo, you'll need a much faster processor, preferably a quantum computer. Otherwise, you might try putting code that reads from the pipe inside the loop, or something, or maybe last if $recv > $somemaximumvalue. update: but that won't work if you reset $recv to 0 before it reaches the max value. I think what you really want is to read a line inside the loop.

If i start this program it reads from a PIPE. But it waits so long till the program reads from a PIPE and THEN goes again trough the Loop.

No, you have that backwards. It's doing the reverse: going through the loop first before it opens the pipe. Since the loop never exits, the pipe is never read.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]