#!/usr/bin/perl
use Palm::Address;
use ColdSync;

StartConduit("dump");

$OUTFILE = "$ENV{HOME}/.palm/address";

print "outfile = $OUTFILE\n";

open OUTFILE, "> $OUTFILE" or die("401 Can't open $OUTFILE: $!\n");
use Data::Dumper;
print OUTFILE Dumper($PDB);
close OUTFILE;

EndConduit;