C:> perl -V:myuname
myuname='Win32 strawberry-perl 5.32.1.1 #1 Sun Jan 24 15:00:15 2021 x64';

C:> perl -MDBI -MDBD::mysql -le "print join qq(\t), $DBI::VERSION, $DBD::mysql::VERSION"
1.643   4.050

##</code><code>##

> .\bin\mysql_install_db.exe --datadir=data
Running bootstrap
Creating my.ini file
2023-01-03 11:57:26 0 [Note] C:\usr\local\apps\MariaDB.Portable\bin\mysqld.exe (server 10.10.2-MariaDB) starting as process 3752 ...
Removing default user
Creation of the database was successful

> start bin\mysqld.exe --console
(opens in new window: shows port 3306)

##</code><code>##

MariaDB [(none)]> CREATE USER pryrt@localhost IDENTIFIED BY 'password';
Query OK, 0 rows affected (0.015 sec)

MariaDB [(none)]> CREATE DATABASE test_db;
Query OK, 1 row affected (0.002 sec)

MariaDB [(none)]> GRANT ALL PRIVILEGES ON test_db.* TO pryrt@localhost IDENTIFIED BY 'password';
Query OK, 0 rows affected (0.014 sec)

MariaDB [(none)]> FLUSH PRIVILEGES;
Query OK, 0 rows affected (0.001 sec)

MariaDB [(none)]> quit
Bye

##</code><code>##

> bin\mysql -u pryrt -ppassword test_db
... logged in okay, and quit...

##</code><code>##

> perl -MDBI -le "print DBI->connect('DBI:mysql:database=test_db', 'pryrt', 'password');"
DBI::db=HASH(0x36eca40)


C:\usr\local\apps\MariaDB.Portable
> perl -MDBI -le "print DBI->connect('DBI:mysql:database=test_db', 'pryrt', 'passwordx');"
DBI connect('database=test_db','pryrt',...) failed: Access denied for user 'pryrt'@'localhost' (using password: YES) at -e line 1.