#!/usr/bin/perl -wuse strict;use Finance::Quote;my $q = Finance::Quote->new();my %data = $q->fetch('usa', 'GOOG');print $data{'GOOG', 'price'} . "\n";
#!/usr/bin/perl -w
use strict;use Finance::Quote;
my $q = Finance::Quote->new();my %data = $q->fetch('usa', 'GOOG');print $data{'GOOG', 'price'} . "\n";