my $sth = $dbh->prepare(<<SQL) or die "$DBI::errstr\n";
INSERT INTO BK_imageINfo (BusDate) VALUES ({ts ?})
SQL
*******OR*******
my $sth = $dbh->prepare(<<SQL) or die "$DBI::errstr\n";
INSERT INTO BK_imageINfo (BusDate) VALUES ({d ?})
SQL

$sth->execute($bdate);