sub server_test_routine {
	for $i (0..$#SERVER_LIST_ARRAY) {
		$server_name = $SERVER_LIST_ARRAY[$i];
		chomp($server_name);
		$server_status = 0;
		$server_test = Net::Telnet->new(	Timeout => 10,
											Prompt => '/]/i',
											Host => $server_name,
											Errmode => 'return');
		print "Server $server_name returned $server_test\n";
		$server_status = $server_test->login(Name => $username,Password => $password,Errmode => 'return');
		$server_test->close;
		if (!$server_status){
			print "Rejecting server $server_name, cannot telnet\n";
			$SERVER_LIST_ARRAY[$i] = "";
		}
	}
}