#!/usr/bin/perl

# Ugnich Anton
# http://server-tuning.info/

use strict;
use Cache::Memcached;

my $memc=new Cache::Memcached { 'servers' => [ $ARGV[0] ] };
my $stats=$memc->stats("misc")->{total};

print $stats->{get_hits},"\n";
print $stats->{get_misses},"\n";