use Finance::Quote;
$q = Finance::Quote->new;

%info = $q->fetch("yahoo_europe", "cbk.de");
print "".$info{"cbk.de","price"};
foreach my $name (sort keys %info) {
	print "$name\n";
	print "$info{$name}\n";
}