strict;
use warnings;
use Tie::File;
use Fcntl;
use LWP::UserAgent;
use File::Slurp;

my @lines;

#Transfer URLS to a string variable;
my $file = "G:/Research/SEC filings 10K and 10Q/Data/sizefiles1.txt";

#Now fill @pages array with contents of sizefile1.txt ... how?
open (FH, "< $file") or die "Can't open $file for read: $!";
my @pages = <FH>;
close FH or die "Cannot close $file: $!";

#connect variable used with GET??
my $ua = LWP::UserAgent-> new;

#Initialize line counter;
my $read_lines=1;

#Primary loop through URLs ;
foreach my $url (@pages)    {
	my $response = $ua->get($url,':content_cb'=>\&head_only);
	print $response->content;
				}
			    
#Subroutine for primary loop;			    
sub head_only    {
	my ($data,$response,$protocol) = @_;
	my @lines = split "\n", $data;
	foreach my $line (@lines)    {
		if ($read_lines ==31)     {
			#reset line count'
			$read_lines = 1;
			print +("=" x 70), "\n"; #what is this?
			#die inside callback interrupt;
			die;
			                   }
		else     {
			#print "line $read_lines: $line\n";
		}
					}
		}