Select Code to Download

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

$LOG = '/path/to/log/file/';
open LOG;