#!/usr/bin/perl
use Palm::Datebook;

my $pdb = new Palm::PDB;
my $record;

$pdb->Load("DatebookDB.pdb");
foreach $record (@{$pdb->{records}})
{
        if ($record->{attributes}{private})
        {
                print "Record $record->{id} is private.\n";
        } else {
                print "Record $record->{id} is not private.\n";
        }
}

