memcached -d -m1024 -l 127.0.0.1 -p 11211 -u root

##</code><code>##

PerlModule My::SSI
<Files ~ "\.(s?html|xml)$">
  RequestHeader unset If-Modified-Since
  RequestHeader unset If-None-Match
  ExpiresActive On
  ExpiresDefault "access plus 5 minutes"
  PerlOptions +SetupEnv
  PerlOutputFilterHandler My::SSI
</Files>

##</code><code>##

package My::MemcacheTest;

# ... etc ... - let me know if this bit is important!
sub test
{
  my $memd = Cache::Memcached->new(
    servers            => [ "127.0.0.1:11211" ],
    debug              => 0,
    compress_threshold => 10_000,
  );

  $memd->set('my_test','KISS');
  my $simple_test = $memd->get('my_test') || 'This did not work';
  print STDERR "Test Result = $simple_test\n";
}

##</code><code>##

#!/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";