perldoc -f -x

-p File is a named pipe (FIFO), or Filehandle is a pipe.

 if( -p STDIN ){ @stuff = <STDIN>; close STDIN; }
while(<>){ ...
[download]

See Re^2: Write to existing file with character insert and Iterator::Diamond for a safer way