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