#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use lib 'lib';
use Palm::Keyring;

my $pdb = new Palm::Keyring;

use YAML;

$pdb->Load("Keys-GtkrNEW.PDB"); 
$pdb->Decrypt('12345');

print Dump $pdb;