A much simpler example program is here: http://sourceforge.net/projects/webpdb/ I get the same errors when I cut down the above script to be (as a first step):

#!/usr/bin/perl -w
#use strict;
use Palm::PDB;
use Palm::Address;

my $p = new Palm::PDB;
$p->Load( $ARGV[0] ) || die "Error loading $ARGV[0]\n";

my @categories = @{$p->{appinfo}{categories}};

for my $catid (@categories )
{
  my $cat = $categories[$catid];
  if( $cat->{name} )
  {
    print "$cat->{name}\n";
  }

  for my $rec ( sort { $a->{fields}->{name} cmp $b->{fields}->{name} |
+| $a->{fields}->{firstName} cmp $b->{fields}->{firstName} } @{ $p->{r
+ecords} } )
  {
    print "$rec->{fields}->{firstName} $rec->{fields}->{name}\n";
  }

}
[download]