$ARTICLE = 100; open ARTICLE or die "Can't find article $ARTICLE: $!\n"; while (
) {... #### $LOG = '/path/to/log/file/'; open LOG;