mempeek.pl

#!/usr/bin/perl

use Cache::Memcached;
use YAML;
use YAML::Dumper;

print YAML::Dumper->new->dump( 
    Cache::Memcached->new( servers => [ "localhost:11211" ] )
                    ->get( shift ) 
);