sub symbol { my ($code, $options) = @_; $code ||= 'USD'; $options ||= 'SYM_UFT'; eval '$options = ' . $options; return currency_symbol($code, $options); };