open(ARTICLE, "-|", "caesar <$article") ...
    open(ARTICLE, "caesar <$article |") ...