<code>
#!/usr/local/bin/perl
     use LWP::Simple;
     open (IN, "sorturls");
     @urls = <IN>;
     foreach $url (@urls){
             chop($url);
             $doc = get "$url";
             push (@downloaded_pages, $doc);
     };
     close(IN);
#"sorturls" has one URL, including "http://", per line.
</code>