update lens_charge.pl to use new ::Pulse defaults and add $is_prolate flag to anticipate oblate output