use strict;
use Crypt::PWSafe3 1.04;
my $vault = new Crypt::PWSafe3(file => 'test.psafe3', password => '10101010');
binmode STDOUT, ":utf8";
foreach my $uuid ($vault->looprecord) {
$vault->modifyrecord($uuid, passwd => 'new-password');
}
$vault->save(file => "another.psafe3", passwd => 'blah blah');