use strict;
use warnings;

use DBM::Deep;

my $dbm = DBM::Deep->new('mj-test-schedules');

$dbm->{'some_key_name'} = 'some value';

for (keys %$dbm) ) {
   print "$_ => $dbm->{$_}\n";
}