use lib '/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/DBD';
use DBI;
use mysql;

$hostname="localhost";
$db="database";
$port="3306";
$dbuser="username";
$dbpassword="password";
$table="table";

$DBI_DSN="dbi:mysql:database=$db;host=$hostname;port=$port";
$dbhandle = DBI->connect($DBI_DSN,$dbuser,$dbpassword,{ RaiseError => 1, AutoCommit => 0});

##</code><code>##

DBI connect ('database=database;host=localhost;port=3306','username',...) failed: Access denied for user: 'username@localhost.localdomain' (Using password: YES)...