Select Code to Download

use LWP::Simple;
open PAPERS, "papers.txt";
...
        }
    }
}

while (<PAPERS>) {
    $page = $_;
...
        }
    }
}