cdr perl import script - add calculated field