# !/usr/bin/perl -w

system ("clear");

my $dbpass=qx{ password_decode $(grep "name=\"db\"" /opt/SecureSphere/etc/bootstrap.xml|cut -d\" -f4) };

print "Password: $dbpass\n";