$password= secret(...); ... local $password->{stringify_mask}= undef if ref($password) eq 'Crypt::SecretBuffer'; $db= DBI->connect($dsn, $user, $password, \%attr);