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

my $ua = LWP::UserAgent->new();
my $iteration = 1;
open(URLS, "SomeFileOfURLs");
while (<URLS>) {
	my $url = $_;
	chomp $url;
	&get_url($url, $iteration);
	print "($iteration) $url\n";
	sleep 15;
	$iteration++;
}
close URLS;

sub get_url {
	my ($url, $iteration) = @_;
	pipe(READER, WRITER);
	if (my $pid = fork) {
		close WRITER;
		waitpid($pid, 0);
		my @data = (<READER>);
		open(FH, ">SomeDirectory\\$iteration");
		print FH @data;
		close READER;
		close FH;
	} elsif (defined $pid) {
		close READER;
		my $request = HTTP::Request->new("GET", $url);
		my $response = $ua->request($request);
		my $content = $response->content();
		print WRITER $content;
		undef $request;
		undef $response;
		close WRITER;
		exit;
	}
}