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