===================================================================
RCS file: /cvs/palm/Palm-Keyring/test2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- palm/Palm-Keyring/test2.pl	2006/12/06 18:45:42	1.1
+++ palm/Palm-Keyring/test2.pl	2006/12/06 20:59:23	1.2
@@ -10,8 +10,12 @@
 
 use YAML;
 
+print "Enter: ";
+my $Pass = <>;
+chomp $Pass;
+print "\n";
+
 $pdb->Load("Keys-Gtkr.PDB"); 
-#$pdb->Decrypt('12345');
+$pdb->Decrypt($Pass) || die "Couldn't decrypt!";
 
 print Dump $pdb;
-