use DBI;
use Data::Encrypted;

my $encryptor = Data::Encrypted->new(FILE => 'db.conf');
my $dbh = DBI->connect(
    'dbi:mysql:mydatabase',
    $encryptor->encrypted('user name'),
    $encryptor->encrypted('db password'),
    { RaiseError => 1, AutoCommit => 1}
);

##</code><code>##

use DBI;
use Data::Encrypted;

my $encryptor = Data::Encrypted->new(FILE => 'db.conf');

my $dbh = die join(' :: ', # <--- this is the only line modified
    'dbi:mysql:mydatabase',
    $encryptor->encrypted('user name'),
    $encryptor->encrypted('db password'),
    { RaiseError => 1, AutoCommit => 1}
);

##</code><code>##

dbi:mysql:mydatabase :: clueless :: t0ps3cr3t :: HASH(0x1158f30) at perfectlysecure.pl line 10.