make_path('Bing/1Parsed/Html3/');
	while (my $row = <$FILE>) {
		open my $fh1, ">", "Bing/1Parsed/Html3/$file.html" or die("Could not open file. $!");
	
	chomp $row;
	print "$row\n";
	my $xml1 = $row;

	$fh1->print ($row);
	
							
							#add pause
							my ( $x, $y ) = ( 2, 5 );
							my $result = int( rand( $y - $x + 1 ) ) + $x;
	
							print "pausing ";
							print $result;
							print "seconds";
							sleep ($result);
							
						# create useragent
						my $ua = LWP::UserAgent->new; 
						$ua->agent('Mozilla/8.0');
				  	    # Use this UA/Proxy to fetch something....
				  	    $ua->proxy(['http'], 'http://'.$proxy); 

							my $xml2 = get $xml1;
							#$fh1->print ($xml1);
							$fh1->print ("\n");
							#$fh1->print ($fh1.$xml2);
							#$fh1->print ($fh1);
							print $xml2;
							$fh1->print ($xml2);
							#close $fh1, ">", "Ask/Parsed/Html/$file.html";
							close $fh1;
							$xml2=1;
							}}