#!/usr/local/bin/perl -w
###########################################
# yhoo-finance-quote
# Mike Schilli, 2008 (m@perlmeister.com)
###########################################
use strict;
use Finance::YahooQuote;

$Finance::YahooQuote::TIMEOUT = 60;

exit 0 unless @ARGV;

my @quotes = getcustomquote(
    [@ARGV], 
    ["Symbol", "Last Trade (Price Only)"]);

if(! exists $quotes[0][1]) {
    die "Fetching quote failed\n";
}

for my $quote (@quotes) {
  print "@$quote\n";
}