A própria OO está correta.
A mensagem de erro vem do MySQL, negando acesso para o usuário 'delkav', mas eu o usuário com o qual você deseja se conectar é 'root'.
De qualquer forma, parece que sua linha DBI->connect() está errada. Para seguir o DBD::mysql docs , você deve alterar sua linha:
my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;
para
my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;
