my $dbh = DBI->connect(
    "dbi:mysql:$Bod::Variables::db_prefix$env:localhost:3306",
    "$Bod::Variables::db_username",
    "$Bod::Variables::db_password"
);