gistfile1.txt

use strict;
use warnings;
use Benchmark ':all';

use LWP::Simple;
use Cache::Memcached::Fast;

my $mc = Cache::Memcached::Fast->new({ servers => [ 'localhost:12321' ] });

cmpthese(10000, {
    http      => sub {
        die unless (get 'http://localhost:8080/yappo') eq 'yappo';
    },
    memcached => sub {
        die unless ($mc->get('/yappo') eq 'yappo');
    },
});

__END__

            Rate      http memcached
http      2433/s        --      -33%
memcached 3623/s       49%        --