#!/usr/local/bin/perl
use Finance::YahooQuote;
die "Usage: $0 symbol [symbol ...]" if $#ARGV == -1;
@h = (  "Symbol","Name","Last","Trade Date","Trade Time","Change","% Change",
        "Volume","Avg. Daily Volume","Bid","Ask","Prev. Close","Open",
        "Day's Range","52-Week Range","EPS","P/E Ratio","Div. Pay Rate",
        "Div/Share","Div. Yield","Mkt. Cap","Exchange"  );
$Finance::YahooQuote::TIMEOUT = 30;
@q = getquote(@ARGV);
foreach $a (@q) {
  foreach (0..$#h) {
      print "$h[$_]: $$a[$_]\n";
  }
  print "\n";
}