$dbh->do("INSERT INTO messages (von, receiver, betreff, message, status, datestamp) VALUES (?, ?, ?, ?, ?, NOW())", undef, $username, $receiver, $betreff, $message, 1)
         or die "Fehler: $DBI::errstr";