perl Finance-Quote