How can I get the dynamically updated price of gold into a variable in my Perl script?

I'm trying to create a simple form calculator that will take today's price of gold and multiply it by a number. I'm doing this on a webpage in Perl. So [Variable which has price of gold} * [Variable with inputted number] = Answer. Thanks for any help!

Public Comments

1. Get the current price from Oanda.com. (Gold is XAU.) Once you have that you should be able to figure out the rest. (Your program can query their site for the exchange rate - we get a 10X10 grid (exchange rates for the 10 currencies we need) every night. If you're going to be hitting the site hard, you should contact them first - we only hit them once every 24 hours. (How often you get the rate depends on how accurate a rate you need at the moment - we only care about the daily rate.)
2. use the Finance::Quote module.