#!/usr/bin/perl

use strict;
my $MYSQL_PASS = 'pass';

my %wanted = map { ($_, 1); } qw(
    Aborted_clients     
    Aborted_connects   
    Bytes_received    
    Bytes_sent       
    Connections     
    Open_tables    
    Open_files    
    Questions    
    Slow_launch_threads  
    Slow_queries        
    Threads_connected  
    Threads_running   
    Uptime           
);

my %stats;

open(MYSQL, "mysqladmin -u root --password='$MYSQL_PASS' extended-status |")
    || die "Can't get MySQL status: $!\n";

while (<MYSQL>) {
    my ($key, $value) = (split(/\s+/, $_))[1,3];
    next unless exists $wanted{$key};
    $stats{$key} = $value;
}

close(MYSQL);

$stats{'Uptime'} = int($stats{'Uptime'} / (60 * 60));

for my $key (sort keys %stats) {
   print "\L$key\E:$stats{$key} ";
}


exit 0;