I find way to do it, but .... I don't like it.

my $mem = Cache::Memcached::libmemcached->new( { servers => [ "testser
+ver" ], compress_threshold => 10_000 } );

if (!($mem->set("tmpval", 0, 60);))
  {
    print "no conection to mem";
  }
[download]