Select Code to Download

23:25 >perl 1001_SoPW.pl
Price of GOOGL is 597.78 for 09/05/2014

23:25 >

use strict;
use warnings;
...
    my $dt = $info{$sym, 'date'};
    print "Price of $sym is " . $info{$sym, 'price'} . ' for ' . $dt .
+ "\n"; # DEBUG
}

$quote->require_labels(qw/success errormsg price date exchange name/);

$quote->require_labels(qw/price date high low volume/);