#!/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);

##</code><code>##

#!/usr/bin/perl

use strict;
use Palm::Memo;

my $pdb = Palm::Memo->new();
$pdb->Load("MemoDB.pdb");
my $record = $pdb->new_Record;
$record->{data} = "Foo\nBar\nBaz";
$record->{id} = int rand 65535;
$pdb->append_Record($record);
$pdb->Write("MemoDB.pdb");
#Warning: The original MemoDB will be overwritten here
#I tested this on POSE, since my Palm was out of reach :)