===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -r1.1 -r1.3
--- palm/Palm-Keyring/examples/example1.pl	2006/01/26 20:54:19	1.1
+++ palm/Palm-Keyring/examples/example1.pl	2006/02/02 00:59:08	1.3
@@ -3,18 +3,19 @@
 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;
 
 #print Dumper $pdb
 
-$pdb->Load("Keys-GtkrNEW.PDB"); 
-$pdb->Decrypt('12345');
+#$pdb->Load("Keys-GtkrNEW.PDB"); 
+#$pdb->Decrypt('12345');
+$pdb->Load("Keys-Gtkr.PDB"); 
+$pdb->Decrypt('Password');
 
 #--------------------------------------------------
 # my $new_record = $pdb->append_Record();