#!/usr/bin/perl

use strict;
use Palm::Memo;
use Data::Dumper;

open(FOO,">foo");
my $pdb = Palm::Memo->new();
$pdb->Load("MemoDB.pdb");
#Load a memo
print FOO Dumper $pdb;
#Dump the entire structure into a file
close(FOO);