#!/usr/bin/perl -w
use strict;
use DBM::Deep;
use Data::Dumper;

my $DBM = DBM::Deep->new("deep.db") or die("Couldn't initialize DB");

$DBM->clear();
$DBM->optimize();

$DBM->{TASK_QUEUE} = {};
$DBM->{TASK_QUEUE}->{DEV} = [];

$DBM->{TASK_QUEUE}->{DEV}->push({CMD => "foo1", FILE => "bar1"});
$DBM->{TASK_QUEUE}->{DEV}->push({CMD => "foo2", FILE => "bar2"});

print Dumper(\$DBM);

my $task = $DBM->{TASK_QUEUE}->{DEV}->shift();
print Dumper(\$task);

print Dumper(\$DBM);

__END__