$ARTICLE = 100;
open ARTICLE || die "Can't find article $ARTICLE: $!\n";
while (<ARTICLE>) {...

open(LOG, '>>/usr/spool/news/twitlog'); # (log is reserved)

open(ARTICLE, "caesar <$article |");   # decrypt article

open(EXTRACT, "|sort >/tmp/Tmp$$");    # $$ is our process#
