#!/usr/bin/perl

use warnings;
use strict;


use LWP::UserAgent;
use HTTP::Request::Common;


my @web_addresses = ("http://www.web1.com/page",
"http://www.web2.co.uk/page.htm");


my $count = 0;

foreach (@web_addresses) {

  $count++;

  my $ua = LWP::UserAgent->new;
  $ua->get("$_", ':content_file' => "$count");

}