#!/usr/bin/perl

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

my $counter=1;
my $file="C:/Documents and Settings/Dad/Desktop/url checker.txt";

open FILE, "<$file" 
	or die "Can't open the list of urls! \n";

while(<FILE>){
	my $source=get($_);
	open LOG, ">C:/Documents and Settings/Dad/Desktop/Websites/Website Source $counter.txt" 
		or die "Can't open website sources.txt: $!\n";
	print LOG $source;
	close LOG;
	$counter++;
}

close FILE;
close LOG;