Грешка в Perl + POO и Mysql

Самият OO е правилен.

Съобщението за грешка идва от MySQL, отказвайки достъп за потребителя 'delkav', но потребителят, с когото искате да се свържете, е 'root'.

Както и да е, изглежда вашият DBI->connect() ред е грешен. За да следвате DBD::mysql документи , трябва да промените своя ред:

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

до

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