#!/usr/bin/perl
use Finance::QuoteHist::Yahoo

$q = new Finance::QuoteHist::Yahoo
     (
      symbols    => "SPY",
      start_date => '01/01/2012',
      end_date   => 'today',
     );

  # Values
  foreach $row ($q->quotes()) {
    ($symbol, $date, $open, $high, $low, $close, $volume) = @$row;
      print "$symbol, $date, $open, $high, $low, $close, $volume \n";
  }