#@final2 = grep { $_ ne "" } $response2;
	open OUTPUT, ">>finallist.txt";
	for my $i (0 .. $#final1) {  print "$ip;$name;$final1[$i];$final2[$i]\n" }
	close OUTPUT;
	print $ip;print $name;	



	# Let the user know about any errors
	#if ($s->error() ne '') {
	#   _exit($s->error());
	#}

	# Close the session
	#$s->close();
} 
exit 0;