...
my $datetime = sprintf("%4d-%02d-%02d %02d:%02d:%02d.000",Today_and_Now());
...
my $sth = $dbh->prepare("INSERT INTO mytable(name,date_in) values(?,?)")                                            ,$dbh->errmsg);   
$sth->execute($name,$datetime);
...