use AddressBook;
$a = AddressBook->new(source => "PDB",port=>"/dev/pilot");
while($entry=$a->read){
	print "Nome: ", $entry->dump ,"\n\n";
}