open(ARTICLE, '-|', "caesar <$article")     # decrypt article                       
  or die "Can't start caesar: $!";