$ perl -e'open our $fh, "cat |" or die $!; close($fh)'
<waits forever>