use strict;
use warnings;
use Finance::QuoteHist::Yahoo;

my $q = Finance::QuoteHist::Yahoo->new
     (
      symbols    => [qw(DTE.DE)], # Telekom
     #symbols    => [qw(BAY.DE)], # Bayer
     #symbols    => [qw(HEN.DE)], # Henkel
     #symbols    => [qw(LHA.DE)], # Lufthansa
     #symbols    => [qw(VOW.DE)], # Volkswagen
     #symbols    => [qw(DPW.DE)], # Deutsche Post
     #symbols    => [qw(IFX.DE)], # Infineon
     #symbols    => [qw(ADS.DE)], # Adidas
     #symbols    => [qw(^GDAXI)], # DAX
     #symbols    => [qw(AMZN)],   # Amazon
     #symbols    => [qw(GOOG)],   # Google
     #symbols    => [qw(IBM)],    # IBM
     #symbols    => [qw(UPS)],    # UPS
     start_date => '01/01/2009',
     end_date   => 'today',
     );

# Gegebenenfalls die richtige Abkürzung suchen unter 
# http://de.biz.yahoo.com/quote_lookup.html

# Ausgabe der Ergebnisse 
foreach my $quote ( $q->quotes() ) 
  {
	my ($symbol, $date, $open, $high, $low, $close, $volume, $adjusted) 
	    = @$quote;
	print "$symbol: Datum: $date, Beginn: $open, Ende: $close ($adjusted).\n";
  }