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

if ($mem)
  {
    my $tmp_value = $mem->get("tmpval");
  }
else
  {
    print "no conection to mem";
  }