...
my $bild;
        open(IMG, "$bild_auswahl");
        binmode(IMG);
        {
        local $/ = undef;
        $bild = $dbh->quote(<IMG>);
        }
        close(IMG);

        # in datenbank einfügen
        my $sth = $dbh->do("UPDATE kontakte SET bild = $bild WHERE id = $ref_hash_haupt->{'id'}")|| die $DBI::errstr;
...