Help for this page
use LWP::Simple; open PAPERS, "papers.txt"; ... } } }
while (<PAPERS>) { $page = $_; ... } } }