Perl + POO dan kesalahan Mysql

OO itu sendiri benar.

Pesan kesalahan berasal dari MySQL, menolak akses untuk pengguna 'delkav', tetapi saya pengguna yang ingin Anda hubungkan adalah 'root'.

Bagaimanapun, sepertinya baris DBI->connect() Anda salah. Untuk mengikuti DBD::mysql docs , Anda harus mengubah baris Anda:

my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;

untuk

my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;