my $sth = $dbh->prepqre(q~
(   indate,  siteid,serial,contract,installdate) 
values
(CURDATE(),        ?,    ?,       ?, STR_TO_DATE(?,'%m/%d/%Y')   )
~);

$sth->execute( $frame_siteid, $frame_serial, $frame_contract, $frame_installdate );