conn_yield_taro.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use IO::Socket;

my $socket = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 11211,
    Proto    => 'tcp',
);

my $set = join "\r\n", map {"set $_ 0 0 1\r\nx"} 1..100;
my $get = join "\r\n", map {"get $_"} 1..100;

$socket->print("$set\r\n$get\r\nquit\r\n");

my @lines = $socket->getlines;

$socket->close;

__END__