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

my $pdb = new Palm::PDB;
$pdb->Load("myfile.pdb") or die "Unable to attach to address book";

my $record = $pdb->{records}[0];
print Dumper($record);