#!/usr/bin/perl -w
use strict;

use Storable;
use Data::Dumper;

my $fname = '../var/mysqlstat.dat';

my $rdata = retrieve($fname) or die("Can't read $fname: $!");

print Dumper($rdata);



