perl IO-Pipely