#!/usr/local/bin/perl

use strict;
use warnings;

package foo;
use Storable qw/freeze thaw/;

sub new {
	my $class = shift;
	my %parms = @_;
	my $self = \%parms;

	bless $self, $class;

   $self->{'db'} = {
		_META => {
			created => time(),
			accessed => time(),
			expires => 0,
			'keys' => { },
		},

	};

	return $self;
}

DESTROY {
	my $self = shift;
	freeze($self->{'db'});
}

package main;

our $foo = new foo;

#undef $foo;