my $animal = $dbh->quote($animal); 
my $sorte = $dbh->quote($sorte);

my $sth = $dbh->prepare("INSERT INTO tbl_bsp SET bsp_artID=$sorte, bsp_text=$animal") || die "Konnte Statement nicht erstellen : $DBI::errstr<br>";
$sth->execute() || die "Konnte Statement nicht ausführen $DBI::errstr<br>";
$sth->finish;