root/trunk/antimatter/tim/Scripts/dump-time-db.plx

#!/usr/bin/perl -I ../Modules
use strict;
use warnings;

use SFLC::TimeTracker::DB;
use Data::Dumper;
my $database = new SFLC::TimeTracker::DB("MLDBM", "time-data.mldbm",
                                       "pending-time.mldbm");

print Data::Dumper->Dump([$database->{main}, $database->{pending}]);