Help for this page
#!/usr/bin/perl -w use strict; ... "$password") or die "Couldn't connect to database: ".DBI->er +rstr;
Couldn't connect to database: Access denied for user 'usr'@'localhost' + (using password: YES)