#!/usr/bin/perl

use strict;
no warnings;
use Data::Dumper::Perltidy;
use Finance::QuoteHist;

my $q = Finance::QuoteHist->new
     (
      symbols    => [qw(IBM)],
      start_date => '05/20/2010', 
      end_date   => 'today',
     );

foreach my $row ($q->quotes()) {
  my($symbol, $date, $open, $high, $low, $close, $volume) = @$row;
}
print Dumper($q);