Return to test2.pl CVS log

Up to [local] / palm / Palm-Keyring

ask for a password instead of hardcoding

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

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

my $pdb = new Palm::Keyring;

use YAML;

print "Enter: ";
my $Pass = <>;
chomp $Pass;
print "\n";

$pdb->Load("Keys-Gtkr.PDB"); 
$pdb->Decrypt($Pass) || die "Couldn't decrypt!";

print Dump $pdb;