Return to test2.pl CVS log | Up to [local] / palm / Palm-Keyring |
1.1 ! andrew 1: #!/usr/bin/perl ! 2: use strict; ! 3: use warnings; ! 4: use diagnostics; ! 5: ! 6: use lib 'lib'; ! 7: use Palm::Keyring; ! 8: ! 9: my $pdb = new Palm::Keyring; ! 10: ! 11: use YAML; ! 12: ! 13: $pdb->Load("Keys-Gtkr.PDB"); ! 14: #$pdb->Decrypt('12345'); ! 15: ! 16: print Dump $pdb; ! 17: