in reply to This is not a pipe

('|'?0:1)==0

die if '|'

$SIG{PIPE}={$p++};END{$p==0}

[download]

In Section Perl Poetry