Munin contributed plugins

            print "missratio.draw STACK\n";

            exit 0;

        }

        my $total = $hash->{'keyspace_hits'} + $hash->{'keyspace_misses'};

        my $hitratio = 0;

        my $missratio = 0;

        print "used_memory_rss.value ". $hash->{'used_memory_rss'}  ."\n";

        print "used_memory_peak.value ". $hash->{'used_memory_peak'}  ."\n";

    }

    case "used_keys" {

        my $dbs;

        foreach my $key (keys %{$hash}) {

close ($sock);

sub get_conn {

    my $sock;

    if( $UNIX_SOCKET && -S $UNIX_SOCKET ){

	$sock = IO::Socket::UNIX->new(

		Type => SOCK_STREAM(),

		Peer => $UNIX_SOCKET,

	);

    }else{

	$sock = IO::Socket::INET->new(

		PeerAddr => $HOST,

		PeerPort => $PORT,

		Proto => 'tcp'

	);

    }

    if ( defined( $PASSWORD )  ) {

        print $sock "AUTH ", $PASSWORD, "\r\n";

        my $result = <$sock> || die "can't read socket: $!";