use Palm::PDB;
use palm::Raw;

use constant PDB_NAME       => 'TimesheetDB'; # the name
use constant PDB_TYPE       => 'data'; # just data
use constant PDB_CREATORID  => 'TiSh'; # get one from Palm
use constant PDB_VERSION    => 261; # just a version number
use constant PDB_MODIFICATION   => 350; # a mod number
use constant PDB_BASEID     => 14360577; # you can leave this blank

my $PDB = Palm::Raw->new();
$PDB->{"name"} = PDB_NAME;
$PDB->{"type"} = PDB_TYPE;
$PDB->{"creator"} = PDB_CREATORID;
$PDB->{"attributes"}{"backup"} = 1;
$PDB->{"version"} = PDB_VERSION;
$PDB->{"modnum"} = PDB_MODIFICATION;

my $record = $PDB->new_Record;
$record->{"data"} = 'anything you want in here';
$record->{"id"} = $id++; # can do that ... do not need to
$PDB->append_Record( $record );

$PDB->Write($filename);