1: <code>
   2: #!/usr/local/bin/perl
   3:      use LWP::Simple;
   4:      open (IN, "sorturls");
   5:      @urls = <IN>;
   6:      foreach $url (@urls){
   7:              chop($url);
   8:              $doc = get "$url";
   9:              push (@downloaded_pages, $doc);
  10:      };
  11:      close(IN);
  12: #"sorturls" has one URL, including "http://", per line.
  13: </code>