Själva OO är korrekt.
Felmeddelandet kommer från MySQL, vilket nekar åtkomst för användaren 'delkav', men jag användaren du vill ansluta till är 'root'.
Hur som helst, din DBI->connect()-linje verkar vara fel. För att följa DBD::mysql-dokumenten , du måste ändra din linje:
my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;
till
my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;