# the following is untested
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $xml  = XMLin( '/opt/SecureSphere/etc/bootstrap.xml' );
my $db   = $xml->{path}{to}{db};
print Dumper $db;

my $pass = `password_decode $db`;
print "$pass\n";