use strict; use warnings; use Palm::Datebook; use Palm::StdAppInfo; my $pdb = new Palm::Datebook; $pdb->Load("datebook.dat"); my $record = $pdb->{records}[1]; #### Record 10734 has same offset as previous one: 65536 Record 10735 has same offset as previous one: 65536 Record 10736 has same offset as previous one: 65536 Record 10753 has same offset as previous one: 0