#!/usr/local/bin/perl -w

use LWP::UserAgent;
use URI::URL;

my $ua = LWP::UserAgent->new;

while($line = <STDIN>) {
   chomp($line);
   if ($line =~ /now_done/) {
      last;
   } else {
      $url = $line;
      $file = 'some_web_page.txt';
      my $req = HTTP::Request->new(GET => $url);
      $req->header('Accept' => 'text/html');
      $ua->request($req, $file);
   }
};
print "done now\n";
exit;