$sql_net="UPDATE today_records
        SET current_prem = CONVERT(money, ?)
        WHERE  account_num= ? AND type='OK'";
my $sth2 = $dbh_2->prepare($sql_net);

...

$sth2->execute( $ABC7, $ABC2) || die $sth2->errstr;