root/trunk/antimatter/tim/Scripts/list-categories.plx

use  SFLC::TimeTracker::Entry;
use  SFLC::TimeTracker::DB;
use SFLC::TimeTracker::Question;
use SFLC::TimeTracker::Input;
use SFLC::TimeTracker::Category;

use strict;
use warnings;

my
    $DATABASE = 
      new SFLC::TimeTracker::DB("MLDBM", "./time-data.mldbm",
                                       "./pending-time.mldbm");

    SFLC::TimeTracker::Entry::Initialize($DATABASE);
    SFLC::TimeTracker::Question::Initialize($DATABASE);
SFLC::TimeTracker::Input::Initialize($DATABASE);

$DATABASE->beginReadWork("main");

foreach my $catKey (keys %{$DATABASE->{main}{categoryList}}) {
  my $category = $DATABASE->{main}{categoryList}{$catKey};
  print "$category->{name}\n";
}
$DATABASE->endReadWork("main");