Skip to content

Instantly share code, notes, and snippets.

@dustym

dustym/gist:2512

Created July 25, 2008 20:09
Show Gist options
  • Save dustym/2512 to your computer and use it in GitHub Desktop.
Save dustym/2512 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
use Cache::Memcached;
use IO::Socket::INET;
my $testaddr = "127.0.0.1:22122";
my $msock = IO::Socket::INET->new(PeerAddr => $testaddr,
Timeout => 3);
my $memd = Cache::Memcached->new({
servers => [ $testaddr ]
});
$memd->set("key", "value");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment