my $sth_m = $dbh_m->prepare(<<SQL) or die $dbh_m->errstr;
INSERT INTO memo
(date, user, ref, creator, status, memo_text) values
(?,    ?,    ?,   ?,       ?,      ?)
SQL

$sth_m->execute("$year-$mon-$mday",
  $INPUT{user}, INPUT{ref}, $INPUT{username},
  'notread', $memo_final) or die $sth_m->errstr;