Mit perl (und warnings) wär das nicht passiert ;-)
use constant DB_PASS => "1$xgz7BD";
Use of uninitialized value $xgz7BD in concatenation (.) or string at -e line 2
Name "main::xgz7BD" used only once: possible typo at -e line 2.mit "use strict" wärs dann auch ein fehler zur compile time:
Global symbol "$xgz7BD" requires explicit package name at -e line 2
Passworte haben in einem Perlscript nichts zu suchen. In Dateien, wo Passworte notiert sind, gibt es weder strict noch warnings.
--Rosti