use DBI qw(:sql_types);
...
$sth->bind_param( 1, $date, SQL_VARCHAR );
$sth->execute();
...