use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Message;

my $ua = LWP::UserAgent->new();
my $iteration = 1;
my $some_directory = 'C:/test/junk';
#open(URLS, $some_directory.'urls.txt');
while (<DATA>) {
    my $url = $_;
    chomp $url;
    &get_url($url, $iteration);
    print "($iteration) $url\n";
    $iteration++;
}
close URLS;

sub get_url {
    my ($url, $iteration) = @_;

    open(FH, '>'.$some_directory.$iteration);

    my $request = HTTP::Request->new("GET", $url);
    my $response = $ua->request($request);
    my $content = $response->content();

    print FH $content;
    close FH;

    return;
}
__DATA__
...

##</code><code>##

use strict;
use warnings;
use LWP::Simple;

my $iteration = 1;
my $some_directory = 'C:/test/junk';

#open(URLS, $some_directory.'urls.txt');

while (<DATA>) {
    my $url = $_;
    chomp $url;
    getstore( $url, $some_directory . $iteration );
    print "($iteration) $url\n";
    $iteration++;
}
__DATA__
...