#!/usr/bin/perl -w
use strict;
use Finance::Quote;
use Finance::Quote;
my $q = Finance::Quote->new;
my %info = $q->fetch("yahoo_europe","12150.PA"); # Use this module only.
__END__
Use of uninitialized value in numeric lt (<) at /usr/share/perl5/Finance/Quote.pm line 637.
Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Finance/Quote.pm line 655.
Use of uninitialized value in sprintf at /usr/share/perl5/Finance/Quote.pm line 660.
Use of uninitialized value in sprintf at /usr/share/perl5/Finance/Quote.pm line 660.
Use of uninitialized value in sprintf at /usr/share/perl5/Finance/Quote.pm line 661.
Use of uninitialized value in sprintf at /usr/share/perl5/Finance/Quote.pm line 661.