open(my $fh, '<', 'cities.txt') or die $!;
	print $fh;
	open(my $prx, '<', 'proxies.txt') or die $!;
	print $prx;
	
	mkdir 'Bing', 0755;
	mkdir 'Bing/1Parsed/', 0755;
	mkdir 'Bing/1Parsed/Html/', 0755;
	
	chomp(my @cities = <$fh>);
	close($fh);
	
	chomp(my @prx = <$prx>);
	close($prx);

	open($fh, '<', 'keywords.txt') or die $!;

	for my $city (@cities) {
	    seek($fh, 0, 0);

	    while (my $keywords = <$fh>) {
	        chomp($keywords);
	        print "$city $keywords\n";

	my $xml1 = $link1 . $city ."+". $keywords . $link2 . $city ."+". $keywords . $link3;
	#my $xmla = $link3 . $row . ".com";
	#my $xmlx = $link4 . $row;

	my $filename1 = "Bing/".($city)."_". ($keywords) . ".html";
	open my $fh1, ">", $filename1 or die("Could not open file. $!");
	
	#toggle proxy selection
    my $prx=$_;

    my $ua->proxy('http', $prx);
	$ua->agent('Mozilla/8.0');
	print "using:";
	print "proxy";
	print $prx;