#!/usr/bin/perl

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

$db="MailDB";
$out="Mail_empty.DMP";

$socket = PDA::Pilot::openPort("COM1");

print "Now press the HotSync button\n";

$dlp = PDA::Pilot::accept($socket);

$db = $dlp->open("$db");

open (OUTdatei, ">$out") or die "Can't open $out: $!\n";

$i=0;
while(defined($r = $db->getRecord($i++))) {
	print OUTdatei Dumper($r);
}