PERL_LIBMEMCACHED_TEST_SERVERS=`/bin/netstat -want | perl -w -e 'while (<>) { $used{$1}=1 if /127\.0\.0\.1:(\d+)/;}; $port = 20000; while ($used{$port}) { $port++ }; print "127.0.0.1:$port\n";'`
