#!/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.