#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Palm::PDB;
use lib 'lib';
use Palm::Keyring;
my $pdb = new Palm::PDB;
use YAML;
#print Dumper $pdb
#$pdb->Load("Keys-GtkrNEW.PDB");
#$pdb->Decrypt('12345');
$pdb->Load("Keys-Gtkr.PDB");
$pdb->Decrypt('Password');
#--------------------------------------------------
# my $new_record = $pdb->append_Record();
#
# $new_record->{plaintext} = {
# name => 'Test3',
# account => 'anothertestaccount',
# password => 'adifferentmypass',
# description => 'now that really roxorZ!',
# };
#
#$pdb->Encrypt('12345');
#
#$pdb->Write("Keys-GtkrNEW.PDB");
#--------------------------------------------------
print Dump $pdb;