#!/usr/bin/perl
use strict;
use warnings;

use Finance::YahooQuote;

my @symbols = ("IBM","DELL","GOOG","YHOO","MSFT","ORCL","SAP","COGN", "BOBJ");
my @columns = ("Last Trade (Price Only)","Last Trade Date","Last Trade Time","Day's Range","52-week Range","EPS Est. Next Year","P/E Ratio","PEG Ratio","Dividend Yield");

my $arrptr = getcustomquote(\@symbols, \@columns);

my $i = 0;
foreach my $symbol (@symbols){
    my @quotes = @{$arrptr->[$i++]};
    print "$symbol\t@quotes\n";
}