#!/usr/bin/perl
use strict;
use warnings;
use Finance::YahooQuote;

# API to get a single symbol data
# an array of data is returned for the symbol
# see the field descriptions here: http://search.cpan.org/~edd/Finance-YahooQuote-0.22/YahooQuote.pm
my $symbol = "QQQQ";
my @quote = getonequote $symbol;
print "QQQQ price = $quote[2]\n";

# API to query multiple symbols
my @symbols = ("YHOO", "GOOG", "AMZN");
my @quotes = getquote @symbols;

print "\n\nMarket Caps\n";
print "===============\n";
for my $stock (@quotes)
{
	print "$$stock[0]: \$ $$stock[20] Billion\n";
}