Perl..
my $memd = new Cache::Memcached {
    'servers' => [ "127.0.0.1:11211"],
    'debug' => 1,
    'compress_threshold' => 10_000,
};
my $memd = new Cache::Memcached {
	'servers' => [ "10.0.0.15:11211", "10.0.0.15:11212",
                   "10.0.0.17:11211", [ "10.0.0.17:11211", 3 ] ],
    	'debug' => 1,
    	'compress_threshold' => 10_000,
};