open (ARTICLE, "-|", "caesar <article");
    eof ARTICLE and die "Can't start caesar:\n$!\n$^E";

##</code><code>##

open(ARTICLE, "-|", "caesar <article")
    or die "Can't start caesar: $!";  # N.B. this is never reached