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__
...