A perl function to get the amount of wasted memory on a memcached server

wasted_memory.pl

sub wasted_memory {
    my ($host, $port) = @_;
    my @slabstats = `echo stats slabs | nc $host $port`;
    my %perslab;

    my $total_malloced = 0;
    my $total_wasted = 0;
    for (@slabstats) {
        if (/STAT total_malloced ([0-9]+)/) {
            $total_malloced = $1;
            next;
        }
        /STAT ([0-9]+):(\w+) ([0-9]+)/ or next;
        $perslab{$1}{$2} = $3;
    }
    for my $slabnum (keys %perslab) {
        $total_wasted += $perslab{$slabnum}{wasted} = ( $perslab{$slabnum}{total_chunks} * $perslab{$slabnum}{chunk_size} ) - $perslab{$slabnum}{mem_requested};
    }
    return ($total_malloced, $total_wasted);
}