use strict;
use PDA::Pilot;
use Data::Dumper;

my ($port,      # device port
    $db,        # database to dump
    $socket,    # socket descriptor
    $app,       # AppInfo block
    $dlp,       # sd = pilot_connect(port);
    $ui,        # dlp_ReadUserInfo
    $info,      # dlp_ReadOpenDBInfo
    $rec);      # record count

$socket = PDA::Pilot::openPort($port) or die "$!";

$db = $dlp->open("DatebookDB") or die "$!";
if ($db) {
        print "-"x40, "\n";
        print "Dumping DatebookDB\n";
        print "-"x40, "\n";
        print "db class is ", ref $db, "\n"; 

        # $rec = $db->getRecord(0);
        # print "Contents: ", Dumper($rec);

        my $app = $db->getAppBlock;

        # Dump all records to STDOUT
        # print Dumper($app);

        print "Categories: @{$app->{categoryName}}\n";

        $db->close();
}