http://www.perlmonks.org?node_id=412679

I recently got a new Treo 600 Phone/PDA/Camera and found there was no good software to extract the pictures from the phone. After doing some research on the format of the files, I put together the following. Just edit the $syncdir variable at the top to point to where your files are.
#!/usr/bin/perl -w use strict; use Palm::PDB; use Palm::Raw; # Set this to the dir the ImageLib_imageDB.pdb # and ImageLib_mainDB.pdb files are in my $syncdir = "."; my %imagedata; my $imagedb = new Palm::PDB; my $maindb = new Palm::PDB; $imagedb->Load("$syncdir/ImageLib_imageDB.pdb"); $maindb->Load("$syncdir/ImageLib_mainDB.pdb"); # Gather picture data, indexed by Record ID. The phone has only 32Meg +s # of memory, so it shouldn't be restrictive to load all the data into # memory foreach my $record (@{$imagedb->{records}}) { $imagedata{$record->{id}} = $record->{data}; } # Records in the mainDB give the filename, and record number # of the start of each picture foreach my $record (@{$maindb->{records}}) { my ($file, $startpic, $startthumb, $nbrecpic, $nbrecthumb) = unpack "A32x8Lx4LSS", $record->{data}; print "$file.jpg"; open JPG, ">", "$file.jpg" or die "Couldn't open $file.jpg: $!\n"; my $nextrec = $startpic; # Write data to image file, following the Next Record pointers # until the last one is found while ($nextrec != 0) { my ($next, $data) = unpack "La*", $imagedata{$nextrec}; print JPG $data; print "."; $nextrec = $next; } print "\n"; close JPG; }