Finance-Quote-MtGox is a project mainly written in Perl, it's free.

Fetch BitCoin BTC/USD from Mt. Gox ticker