El propio OO es correcto.
El mensaje de error proviene de MySQL, denegando el acceso al usuario 'delkav', pero el usuario con el que desea conectarse es 'root'.
De todos modos, parece que su línea DBI->connect() es incorrecta. Para seguir los DBD::mysql docs , debe cambiar su línea:
my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;
a
my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;
