use strict;
use warnings;
use Finance::Quote;
use Data::Dumper;

printf "Version : %s\n", $Finance::Quote::VERSION;

my $q = Finance::Quote->new();
$q->timeout(60);
$q->set_currency("USD");

my $stock = 'googl';
my $info = $q->fetch("yahoo_json",$stock);
print Dumper $info;
printf "Latest price for %s is %s", $info->{$stock,'name'},$info->{$stock,'last'};