or download this
my $SQL ="Select tran_seq_nbr, sale_amount From Header Where org_numbe
+r = 8 And store_number = 3 And tran_number = 2127 And terminal_number
+ = 8 And tran_Date = to_date(?,'YYYY-MM-DD HH24:MI:SS')";
$sth->prepare($SQL);
$sth->execute($date) or die $sth->errstr;