===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- palm/Palm-Keyring/examples/example1.pl	2006/01/31 23:03:39	1.2
+++ palm/Palm-Keyring/examples/example1.pl	2006/04/18 20:39:45	1.4
@@ -3,11 +3,10 @@
 use warnings;
 use diagnostics;
 
-use Palm::PDB;
 use lib 'lib';
 use Palm::Keyring;
 
-my $pdb = new Palm::PDB;
+my $pdb = new Palm::Keyring;
 
 use YAML;
 
@@ -16,7 +15,8 @@
 #$pdb->Load("Keys-GtkrNEW.PDB"); 
 #$pdb->Decrypt('12345');
 $pdb->Load("Keys-Gtkr.PDB"); 
-$pdb->Decrypt('Password');
+#$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
+$pdb->Decrypt('12345');
 
 #--------------------------------------------------
 # my $new_record = $pdb->append_Record();