#!/usr/bun/perl
use Cache::Memcached;

my $memd = Cache::Memcached->new(
  servers            => [ "127.0.0.1:11211" ],
  debug              => 0,
  compress_threshold => 10_000,
);

print "Memcached value is: ".$memd->get('my_test')." \n";