use strict;
use warnings;

use Palm::Datebook;
use Palm::StdAppInfo;

my $pdb = new Palm::Datebook;
        $pdb->Load("datebook.dat");

my $record = $pdb->{records}[1];